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ABSTRACT 

Nucleate  pool  boiling  is  an  essential  part  of  the  vast  cooling  systems  today's 
combatant  ship  combat  systems  are  dependent  upon.  Understanding  the  mechanisms 
that  influence  heat  transfer  in  tube  bundles  in  a  liquid  pool  is  the  stepping  stone  for 
improving  these  cooling  systems.  This  thesis  attempts  to  bridge  the  gap  between  single 
tube  performance  and  bundle  performance  by  studying  the  effect  of  a  lower  heated  tube 
on  the  heat  transfer  from  an  upper  tube  in  a  simple'  two  tube  bundle.  This  study  con- 
cludes that  a  nucleating  lower  tube  (regardless  of  the  spacings  tested  between  tubes)  has 
a  significant  positive  (i.e.  improvement  of  heat  transfer)  influence  an  upon  upper  tube. 
This  is  especially  evident  for  a  smooth  tube  where  any  hysteresis  effects  are  completely 
eliminated  when  the  lower  tube  nucleates  at  a  heat  flux  of  10  kWjm2  or  greater.  Fur- 
thermore, the  only  influence  for  the  pitch-to-diameter  ratios  tested  was  at  the  highest 
heat  fluxes  for  the  smooth  tubes  where  a  p/d  of  1.8  was  found  to  give  the  maximum  heat 
transfer.  No  such  maximum  was  obtained  for  the  enhanced  tubes. 
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NOMENCLATURE 

Note  that  properties  and  measured  parameters  of  the  lower  (auxiliary)  tube  are  dif- 
ferentiated from  the  upper  tube  with  A  added  to  that  property  or  parameter  (i.e.  ACp 
is  the  specific  heat  of  the  lower  (auxiliary)  tube).  Though  this  may  cause  confusion  with 
area  dimensions,  this  nomenclature  is  preserved  because  it  is  used  within  programs 
SETUP72  (  appendix  C)  and  DRP72  (appendix  D).  Note  also  that  like  tubes  were  used 
in  upper  and  lower  positions  such  that  spatial  dimensions  are  the  same  and  are  not  dif- 
ferentiated between  tubes. 

A  area 

Ab  tube  outside  surface  area  of  active  boiling  section 

Ac  cross  sectional  area  of  the  tube 

Cp  specific  heat 

ACp  specific  heat  of  lower  (auxiliary)  tube 

D  diameter 

Di  tube  inside  diameter 

Do  tube  outside  diameter 

Dl  diameter  of  the  position  of  the  thermocouple 

D2  outer  diameter  of  the  boiling  tube 

g  gravitational  acceleration 

h  heat  transfer  coefficient 

Ah  heat  transfer  coefficient  of  lower  tube 

I  current 

AI  current  for  lower  tube 

Is  output  voltage  of  AC  current  sensor 

AIs  output  voltage  of  AC  current  sensor  for  lower  tube 

k  thermal  conductivity  of  liquid 

Ak  thermal  conductivity  of  liquid  associated  with  lower  tube 

kc  thermal  conductivity  of  copper 

L  active  boiling  tube  length 

Lu  non-boiling  tube  length 


Nu  Nusselt  number 

p  tube  outside  wall  perimeter 

Pr  Prandtl  number 

APr  Prandtl  number  associated  with  lower  tube 

Q  heat  transfer  rate  from  boiling  surface 

AQ  heat  transfer  rate  from  boiling  surface  of  lower  tube 

Qf  heat  transfer  rate  through  one  non-boiling  end 

AQf  heat  transfer  rate  through  one  non-boiling  end  of  lower  tube 

Qh  heat  transfer  rate  from  cartridge  heater 

AQh  heat  transfer  rate  from  lower  tube  cartridge  heater 

q"  heat  flux 

Aq"  heat  flux  from  lower  tube 

Ra  Rayleigh  number 

T  temperature 

Tavg  average  wall  temperature  at  the  thermocouple  location 

ATavg  average  wall  temperature  at  the  thermocouple  location  for 
the  lower  tube 

Tc  critical  temperature 

Tf  film  temperature 

ATf  film  temperature  of  fluid  associated  with  lower  tube 

Tn  temperature  of  the  thermocouple  location 

Tsat  saturation  temperature 

Two  outer  wall  temperature  of  the  boiling  test  tube 

ATwo  outer  wall  temperature  of  the  lower  tube 

V  voltage  across  the  cartridge  heater 

AV  voltage  across  the  cartridge  heater  for  the  lower  tube 

Vs  voltage  output  by  AC-DC  true  RMS  converter 

AVs  voltage  output  by  AC-DC  true  RMS  converter  for  lower  tube 

a  thermal  diffusivity 

Aa  thermal  diffusivity  associated  with  lower  tube 

P  volumetric  thermal  expansion  coefficient 

A/J  volumetric  thermal  expansion  coefficient  associated  with 
lower  tube 
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I.     INTRODUCTION 

As  the  United  States  continues  to  struggle  with  the  dilemma  of  increasing  require- 
ments for  CFC's,  while  at  the  same  time  joining  the  world  in  concern  over  ozone  de- 
pletion, the  exigency  of  finding  replacements  for  the  Navy's  high  ozone  depletion 
potential  fluids  is  of  the  highest  order.  The  urgency  of  this  search  was  made  more 
pressing  by  the  reduction  of  the  time  allowed  (ordered  by  President  Bush)  to  meet 
Montreal  Protocol  deadlines  to  purge  use  of  CFC  refrigerants.  A  particularly  damaging 
fluid  is  R-114,  used  primarily  in  centrifugal  chilled- water  air-conditioning  plants  onboard 
ships.  In  order  to  best  determine  a  short  term  or  "drop  in"  replacement,  data  of  R-114 
nucleate  pool  boiling  characteristics  is  required  for  comparison.  The  literature  provides 
many  studies  of  single  tubes  in  nucleate  pool  boiling;  however,  studies  of  multiple  tubes 
are  more  scarce.  Most  studies  of  multiple  tubes  with  varied  tube  spacings  were  con- 
ducted in  a  manner  to  simulate  a  bundle,  i.e.  all  tubes  in  the  pool  were  studied  with  the 
same  applied  heat  flux.  There  is  little  work,  in  the  literature  on  the  effect  of  a  lower 
heated  tube  on  the  heat  transfer  from  an  upper  tube  (i.e.  a  simple  bundle)  and  none  with 
R-114.  This  type  of  data  would  begin  to  bridge  the  gap  between  single  tube  nucleate 
pool  boiling  and  bundle  effects,  and  would  complement  the  search  for  a  suitable  re- 
placement for  R-114. 

To  increase  the  available  data  for  comparison  with  possible  replacement  refrigerants, 
and  to  further  investigate  the  effect  of  tube  spacing,  the  following  objectives  of  this  thesis 
were  established: 

1.  Modify  the  existing  single  tube  pool  boiling  apparatus  to  accommodate  a  simple 
two  tube  bundle,  including  program  modifications  to  facilitate  instrumenting  the 
second  tube. 

2.  Operate  the  apparatus  to  prove  repeatability  with  single  tube  data. 

3.  Obtain  convection  and  boiling  data  over  several  tube  pitches  and  heat  flux  settings 
for  both  a  smooth  tube  and  an  enhanced  tube. 

Of  particular  note  is  that  this  study  was  designed  as  a  follow  up  to  the  single  tube 
work,  of  Sugiyama  [Ref.  lj.  The  format  of  this  study,  including  the  correlations  and 
programs  used,  are  adaptations  from  Sugiyama's  work  in  order  to  make  the  results  di- 
rectly comparable. 


II.     MECHANISMS 

A.  SINGLE  TUBE  BEHAVIOR 

Experimental  heat  transfer  behavior  has  been  fairly  well  predicted  from  single 
smooth  cylindrical  tubes  in  an  infinite  pool  for  the  natural  convection  region  by 
Churchill  and  Chu  [Ref.  2]  and  Churhchill  and  Usagi  [Ref.  3]  and,  to  a  lessor  degree,  for 
the  boiling  region  by  Rohsenow  [Ref.  4]  and  Stephan  and  Abdelsalam  [Ref.  5].  Single 
enhanced  tubes  have  also  been  widely  studied  with  nucleate  pool  boiling  enhancements 
ranging  up  to  15  times  the  performance  of  smooth  tubes.  The  largest  enhancements 
have  been  obtained  for  re-entrant  cavity  surfaces  as  reported  by  Yilmaz  and  Westwater 
[Ref.  6],  Marto  and  Lepere  [Ref.  7],  and  Wanniarachchi  et  a/.[Refs.  8,  9].  In  these 
studies,  enhancements  were  largely  attributable  to  increased  surface  area  in  the  con- 
vection regime,  and  to  stable  vapor  sites  (i.e.  vapor  trapped  in  re-entrant  cavities),  which 
provided  a  high  density  of  active  nucleation  sites  at  relatively  low  values  of  wall  super- 
heat in  the  boiling  regime.  However,  to  date,  no  comprehensive  model  or  correlation 
has  been  presented  which  can  predict  such  enhancements  (Thome  addresses  this  in  dis- 
cussion of  nucleate  pool  boiling  correlations  [Ref.  10]). 

B.  MULTIPLE  TUBE  BEHAVIOR 

The  behavior  of  a  particular  tube  in  a  multiple  tube  environment  will  be  greatly  in- 
fluenced by  its  neighboring  tubes.  In  both  the  natural  convection  and  nucleate  boiling 
regimes,  fluid  heated  by  a  lower  tube  will  rise  due  to  buoyant  forces,  and  an  upper  tube 
will  tend  to  be  affected,  specifically  by  the  heated  liquid  plume  in  the  convection  regime 
and  by  the  bubble  plume  in  the  boiling  regime.  Also  in  a  bundle  the  lower  tubes  may 
impart  a  'drag'  on  the  fluid  as  it  traverses  the  bundle  affecting  the  fluid  reaching  an  up- 
per tube.  The  lower  tube,  because  it  is  not  impacted  by  a  similar  plume,  can  be  assumed 
to  behave  as  a  single  tube  in  a  pool.  However,  if  a  bundle  is  in  a  confined  pool,  it  may 
be  the  case  that  strong  recirculation  patterns  cause  an  upper  tube,  in  turn,  to  affect  the 
heat  transfer  behavior  from  a  lower  tube. 

The  effect  of  a  lower  tube  on  an  upper  tube  has  been  studied  by  Sparrow  and 
Niethammer  [Ref.  11]  and  Marsters  [Ref.  12]  in  the  convection  region  (using  air),  and 
by  Fujita  et  al.  [Ref.  13]  and  by  Hahne,  Qiu-Rong  and  Windisch  [Ref.  14]  in  the 
nucleate  boiling  region  (using  refrigerants).  These  effects  arc  primarily  the  result  of  two 
contradictory  influences,  increased  fluid  velocity  in  the  convection  or  boiling  bubble 


plume  and  increased  fluid  temperature.  In  the  natural  convection  region,  fluid  heated 
by  the  lower  tube  will  have  a  velocity  due  to  buoyant  forces  when  it  arrives  at  the  upper 
tube.  In  effect  the  upper  tube  is  no  longer  in  a  true  natural  convection  regime  but  is 
beginning  to  experience  some  forced  convection  (i.e.  mixed  convection),  thus  increasing 
its  heat  transfer  coefficient.  At  the  same  time  the  heat  from  the  lower  tube  that  causes 
this  buoyant  plume  to  rise  has  increased  the  temperature  of  that  fluid  within  the  plume, 
thereby  decreasing  the  temperature  difference  between  the  upper  tube  and  the  fluid  and 
decreasing  the  heat  transfer  capability.  Two  of  the  parameters  affecting  the  strength  of 
these  influences  are  tube  separation  and  the  heat  flux  setting  of  the  lower  tube.  The 
temperature  of  the  fluid  within  the  buoyant  plume  arriving  at  the  top  tube  will  be  slightly 
lower  than  its  temperature  when  it  left  the  lower  tube  due  to  convection  to  the  sur- 
rounding fluid.  This  drop  in  temperature  will  tend  to  increase  with  increasing  tube  sep- 
aration, thereby  increasing  the  AT  between  the  upper  tube  and  plume.  This  implies  that 
the  upper  tube's  heat  transfer  capability  at  large  pitch  may  be  expected  to  improve  over 
that  at  small  pitch.  In  addition,  with  Sugiyama's  [Ref.  1]  single  tube  work,  convection 
plumes  were  turbulent  (Grashof  numbers  were  greater  than  10'),  implying  that  plume 
velocity  will  not  change  with  tube  separation.  However  in  reality  at  high  enough 
Grashof  numbers,  the  formation  of  eddies  and  other  currents  in  the  pool  would  tend  to 
cause  a  decrease  in  the  plume  fluid  velocity  at  the  upper  tube  and  thereby  a  decrease  in 
the  heat  transfer  coefficient  over  that  of  a  smaller  pitch.  These  two  effects,  increasing 
AT  with  increasing  pitch  and  decreasing  heat  transfer  coefficient  at  large  pitch  suggest 
that  an  optimum  pitch  is  possible.  These  influences  are  confirmed  by  Sparrow  and 
Niethammer's  work  with  air  [Ref.  11]  and  by  Marsters  [Ref.  12]  with  air,  for  which  they 
found  a  dependence  on  the  x-based  Grashof  number  (based  on  the  position  of  the  tubes) 
for  the  heat  transfer  from  the  upper  tube. 

In  the  nucleate  boiling  regime,  the  above  two  effects  are  also  important.  The  fluid 
entrained  in  the  bubble  plume  from  the  lower  tube  (and  the  bubbles  themselves)  impinge 
upon  the  upper  tube  at  a  much  higher  velocity  than  with  a  convection  plume  (due  to 
greater  buoyant  forces  associated  with  the  bubbles).  This  greater  velocity  of  the  plume 
and  the  bubbles  would  have  the  same  influence  as  in  convection  above  and  may  be  suf- 
ficient to  strip  the  thermal  boundary  layer  from  the  upper  tube,  thereby  lowering  heat 
transfer  resistance  and  increasing  the  heat  transfer  coefficient.  Enhancements  due  to  the 
impingement  of  plume  and  bubbles  is  most  significant  at  lower  heat  fluxes  when  active 
nucleation  site  density  on  the  upper  tube  is  low.  This  provides  more  'contact'  area  be- 
tween the  upper  tube  and  the  rising  fluid/ bubble  mixture.    As  flux  is  increased  on  the 


upper  tube,  the  active  nucleation  site  density  also  increases.  At  high  heat  fluxes,  boiling 
is  so  vigorous  that  the  rising  fluid  is  prevented  from  gaining  any  appreciable  'contact' 
with  the  upper  tube.  Heat  transfer  coefficients  may  then  be  expected  to  increase  with 
increasing  tube  spacing  (as  in  the  convection  regime)  with  a  possible  optimum.  How- 
ever, enhancement  due  to  the  lower  tube  may  be  expected  to  decrease  when  high  heat 
fluxes  are  applied  to  the  upper  tube.  The  trends  of  these  influences  were  verified  by 
Fujita  et  al.  [Ref.    13  ]  and  Hahne  et  al.  [Ref.  14]. 

An  additional  influence  in  the  boiling  regime  may  be  the  effect  of  'seeding'  from  the 
lower  tube  when  it  is  boiling.  At  low  and  medium  heat  fluxes  on  the  upper  tube  (active 
nucleation  site  density  is  low),  vapor  bubbles  from  the  lower  tube  may  impinge  and  in- 
fluence enter  an  inactive  cavity  on  the  bottom  half  of  the  upper  tube.  This  may  prompt 
an  otherwise  inactive  site  to  become  active  earlier  than  it  would  have  done  for  a  single 
tube.  This  influence  would  also  be  more  effective  at  low  fluxes  (low  site  density)  on  the 
upper  tube.  At  higher  fluxes,  the  number  of  active  sites  is  higher  and  the  probability  of 
an  added  site  becoming  active  due  to  this  seeding  process  is  significantly  lower. 


III.     DESCRIPTION  OF  EXPERIMENTAL  APPARATUS 

A.     GENERAL  DESCRIPTION 

The  apparatus  used  is  an  adaptation  of  the  apparatus  used  by  Karasabun  [Ref.  14: 
pp  24-41],  Reilly  [Ref.  15  :  pp.  30-44],  and  Sugiyama  [Ref.  1:  pp.  8-32]  in  previous  studies 
of  pool  boiling  of  R-114/oil  mixtures  from  single  tubes.  Karasabun  provides  complete 
details  of  the  original  configuration  of  the  apparatus.  The  current  apparatus  was  es- 
sentially that  used  by  Sugiyama  for  single  tubes  with  modifications  made  to  accommo- 
date two  tubes  in  the  evaporator.  Additionally,  the  original  R-12  cooling  system  was 
operated  in  conjunction  with  a  R-502  system  to  increase  cooling  capacity  for  the  in- 
creased heat  load  of  two  tube  operation.  An  additional  smooth  and  high  flux  tube  were 
manufactured  in  order  that  both  a  smooth  and  an  enhanced  tube  set  could  be  studied 
in  the  two  tube  configuration.  The  unused  auxiliary  variac  power  supply  was  employed 
as  the  power  supply  for  the  second  tube.  A  two  tube  data  reduction  program  DRP72 
was  developed  by  adapting  Sugiyama's  single  tube  data  reduction  program  DRP7. 

The  apparatus  is  labeled  on  a  general  schematic  in  Figure  1  and  consists  essentially 
of  seven  components: 

1.  An  evaporator,  a  boiling  vessel  assembled  using  a  Pyrex-glass  tee  with 
aluminum/teflon  endplates. 

2.  A  condenser,  assembled  using  a  similar  Pyrex-glass  tee  with  aluminum  endplates. 

3.  A  reservoir  for  R-114  liquid  storage. 

4.  A  cooling  subsystem  composed  of  an  1/2  ton  R-502  and  a  1/4  ton  R-12  refriger- 
ation plant,  a  30  gallon  water/ ethylene  glycol  sump,  and  two  positive  displacement 
pumps. 

5.  A  vacuum  pump. 

6.  A  data  acquisition  and  instrumentation  system. 

7.  An  aluminum  framework  with  plexiglass  siding  within  which  components  1-3  were 
housed. 

The  apparatus  was  designed  for  reflux  operation.  Vapor  generated  in  the  evaporator 
followed  a  path  through  an  aluminum  L-shaped  pipe  to  the  condenser.  R-114 
condensate  then  returned  to  the  evaporator  via  copper  tubing  by  gravity.  The 
water/ethylenc  glycol  sump  of  the  cooling  subsystem  was  maintained  between  -10  and 
-17  °C.  This  was  accomplished  using  two  separate  cooling  schemes.  The  R-502  refrig- 
eration plant  cooled  the  mixture  via- a  counter  current  heat  exchanger  tlirough  which  the 
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Figure  1.      Schematic  of  Apparatus 


water/ ethylene  glycol  mixture  was  circulated  by  an  8-gpm  turbine-type  pump.  The  R-12 
refrigeration  plant  cooled  via  an  evaporator,  constructed  of  coiled  copper  tubing,  located 
directly  within  the  sump.  The  second  8-gpm  turbine-type  pump  circulated  the  mixture 
from  the  sump  through  copper  condensing  coils  within  the  condenser  via  a  control  valve 
(VC,  see  Figure  1),  and  then  returned  to  the  sump. 

An  alternate  mode  of  operation  was  used  to  evacuate  the  boiler  to  facilitate  tube 
change  out.  R-114  was  boiled  off  from  the  evaporator  and  condensed  as  before,  but  in 
this  case  R-114  condensate  was  directed  to  the  reservoir  (by  changing  certain  valves), 
instead  of  returning  to  the  evaporator.  Once  tube  changeout  was  completed  the 
evaporator  was  simply  refilled  from  the  reservoir  by  gravity. 

This  study  was  devoted  to  pure  R-114.  In  order  to  ensure  that  no  oil  could  intrude 
into  the  system,  the  oil  path  between  the  oil  reservoir  and  the  evaporator  (used  for 
R-114/oil  mixture  tests)  was  removed  and  the  access  to  the  evaporator  plugged.  The 
major  components  of  the  oil  subsystem  (reservoir  and  graduated  cylinder)  were  left  in- 
tact for  use  in  future  studies. 

B.     BOILING  TEST  SECTION 
1.    Evaporator 

The  evaporator  consisted  of  a  Corning  Pyrex-glass  tee  (3  in.  nominal  interior 
diameter)  with  aluminum  endplates.  The  endplates  were  coupled  to  the  glass  tee  by 
Corning  cast  iron  removable  flanges.  The  glass  vessel  was  mounted  horizontally  with 
the  side-arm  of  the  tee  vertical.  The  major  modification  in  adapting  the  apparatus  from 
a  single  tube  to  two  tubes  was  to  the  evaporator  endplates.  New  endplates  were  manu- 
factured with  thermocouple  and  liquid  fill/return  penetrations  moved  to  the  periphery 
and  a  three  inch  hole  centered  on  the  axis  of  the  evaporator.  Teflon  inserts  were  man- 
ufactured to  fit  tightly  into  this  hole  with  varied  spacings  for  the  two  test  tubes.  Though 
the  teflon  endplates  could  be  rotated  to  accommodate  a  variety  of  tube  geometries,  only 
vertical  spacing  was  addressed  in  this  study  (  i.e.  one  tube  vertically  below  the  other). 
The  addition  of  another  tube  to  the  evaporator  also  required  the  liquid  level  to  be  raised. 
The  new  liquid  level  was  only  10  mm  from  the  top  of  the  Pyrex  glass  tee  and  10  mm 
above  the  top  of  the  upper  tube  (note  that  for  all  spacings  the  upper  tube  was  fixed  in 
position  relative  to  the  evaporator  and  the  lower  tube  was  varied).  This  severely  reduced 
the  vapor  path  between  the  liquid  surface  and  the  top  of  the  evaporator  to  the  exit  tee. 
A  comparison  of  the  modified  and  previous  apparatus  liquid  levels,  tube  positions  and 
fittings  is  shown  in  Figure  2. 
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Figure  2.      Comparison  of  Modified  and  Previous  Apparatus 


Pyrex-glass  was  used  for  both  the  evaporator  and  condenser  due  to  its  greater 
strength  compared  to  ordinary  glass.  It  was  necessary  for  the  apparatus  to  withstand 
pressure  differences  (between  apparatus  interior  and  atmospheric)of  up  to  20  psig  due 
to  possible  R-114  vapor  pressures  at  high  room  temperatures  during  summer  months. 
In  addition,  a  glass  vessel  provided  several  other  advantages  over  a  metal  one: 

•  The  transparent  vessel  allowed  easy  visual  observation  and  videotaping  of  the 
boiling  phenomena  occurring  inside. 

•  The  smooth  interior  surface  minimized  any  nucleate  boiling  at  this  inner  surface. 


A  relief  valve  (set  at  20  psig)  was  mounted  in  the  aluminum  piping  between  the 
evaporator  and  condenser  to  prevent  the  safe  working  pressure  (30  psig)  of  the  Pyrex 
glass  tee  from  being  exceeded.  A  sketch  of  the  glass  tee  and  the  cast  iron  flanges  is 
shown  in  Figure  3.  A  sketch  of  an  endplate  and  a  teflon  block  insert  is  shown  in 
Figure  4. 

2.    Test  Tubes 

A  general  schematic  of  the  tubes  is  shown  in  Figure  5.  The  tubes  protruded 
through  (and  were  supported  by)  the  teflon  inserts  in  the  endplates  of  the  evaporator. 
The  teflon  inserts  were  sealed  by  viton  O-rings,  two  O-rings  between  the  teflon  inserts 
and  each  tube,   and  one  O-ring  between  the  insert  and  the  aluminum  endplate. 

Two  types  of  tube  were  used,  a  smooth  hard-copper  tube  and  a  High  Flux 
porous-coated  tube.  The  tubes  were  heated  via  a  stainless  steel,  240- volt,  1000-watt 
(nominal),  Watlow  Firerod  cartridge  heater,  6.35  mm  in  outer  diameter,  203.2  mm  in 
actual  length  with  an  actual  heated  length  of  190  mm.  The  heater  was  tightly  inserted 
into  a  copper  sleeve,  which  functioned  as  a  mounting  device  for  the  thermocouples.  The 
sleeve  was  then  inserted  in  the  tube.  Both  the  heater  and  the  sleeve  were  tinned  with  soft 
solder  prior  to  being  inserted  into  the  tube  and  the  whole  assembly  heated  in  a  furnace 
to  bond  the  assembly  together.  This  minimized  thermal  resistance  and  provided  a  uni- 
form heat  flux  along  the  length  of  the  tube.  The  heater  and  sleeve  were  inserted  such 
that  the  central  190  mm  were  heated  radially  by  the  heater.  This  was  taken  as  the  active 
boiling  length.  A  correction  was  applied  for  the  heat  lost  from  the  two  ends  of  the  tube 
in  the  pool. 

The  tubes  were  each  instrumented  with  eight  thermocouples  soldered  into 
channels  which  were  machined  in  the  outer  surface  of  the  sleeve.  These  thermocouples 
were  located  at  various  axial  and  circumferential  locations  as  shown  in  Figure  6.    The 
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a)  Corning  Pyrex  Glass  Evaporator  (D  x  Dl  =  402x51  mm, 
L  =  178  mm,  1*  =  127  mm) 
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b)    Cast    Iron    Flange    and   Gasket    (d^=    190mm,    d0  =    210mm, 
L   =    14mm,    A    =    21°  ) 


Figure  3.      Sketch  of  Pyrex  Glass  Vessels  and  Flanges 
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Figure  4.      Sketch  of  Emlplates  and  Teflon  Inserts 
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thermocouple  grooves  were  axially  machined  to  the  nearest  end  of  the  sleeve  to  provide 
a  path  for  the  thermocouple  leads.  Type-T  Teflon  coated  copper-constantan 
thermocouple  wire  was  used  both  in  the  tubes  and  throughout  the  apparatus.  Dimen- 
sions and  for  the  tubes  are  given  in  Table  1. 


Table  1.     TEST  TUBE  DIMENSIONS 

Tube  Type 

Dl(mm) 

D2(mm) 

Di(mm) 

Do(mm) 

L(mm) 

Lu(mm) 

Kwall 
{Wjm.K) 

Smooth 

12.44 

15.88 

12.70 

15.88 

190.0 

76.20 

344 

High  Flux 
(95/5  Copper- 
Nickel) 

12.95 

15.82 

13.20 

15.82 

190.0 

76.20 

45 

C.  CONDENSER  SECTION 

The  condenser  was  assembled  similarly  to  the  evaporator.  The  same  size  Pyrex-glass 
tee  was  used  as  the  main  vessel  with  aluminum  endplates.  The  glass  vessel  was  mounted 
vertically  with  side-arm  tee  horizontal  to  receive  the  R-114  vapor.  A  helical  condensing 
coil  made  of  9.5  mm  copper  tubing  was  inserted  in  the  Pyrex  glass  tee.  Swagelock  fit- 
tings were  used  to  connect  the  condenser  coil  to  the  coolant  tubing  through  the 
condenser  endplates.  The  coil  was  fabricated  to  an  approximate  outside  diameter  of  76 
mm,  providing  an  active  condensation  length  of  approximately  4.5  m. 

The  vacuum  pump  was  connected  to  the  top  of  the  condenser  via  two  isolation 
valves  to  remove  any  noncondensable  gases  that  collect  there.  A  tubing  connection  was 
placed  in  the  bottom  endplate  of  the  condenser  to  enable  R-114  condensate  to  drain 
back  to  the  evaporator  by  gravity.  Valve  and  tubing  lineup  was  such  that  condensate 
could  also  be  directed  back  to  the  R-l  14  reservoir.  The  condenser  was  connected  to  the 
evaporator  by  an  L  shaped  aluminum  tube  two  inches  in  diameter.  The  pressure  relief 
valve,  mentioned  earlier,  and  a  bourdon  pressure  gage  were  mounted  on  this  aluminum 
tube. 

D.  COOLING  SECTION 

1.     Coolant  Sump 

A  0.15  m3,  rectangular  sump  for  the  water-ethylene  glycol  mixture  was  made  of 
13  mm  Plexiglas  sheet.  The  sides  were  glue  jointed  using  a  methylene  chloride  solution 
with  additional  support  provided  by  small  screws.    The  tank  was  placed  on  a  wooden 
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Figure  5.      Schematic  of  the  lest  Tube 
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Figure  6.      Positions  of  the  Thermocouples 
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platform  to  separate  it  from  the  concrete  floor  and  all  sides  were  insulated  with  22  mm 
sheet  insulation.  The  coolant  was  a  52%  mixture  of  ethylene  glycol/distilled  water 
producing  a  solution  freezing  point  of  approximately  -25  °C. 

2.  Refrigeration  Plants 

A  1/2  ton  R-502  and  a  1/4  ton  R-12  refrigeration  plant  were  used  to  chill  the 
ethylene  glycol/water  mixture.  Each  consisted  of  a  hermetically  sealed  compressor  as- 
sembly, an  air  cooled  condenser,  a  receiver,  a  filter-dryer,  a  pressure  regulator,  a  tem- 
perature control  switch  and  a  thermostatic  expansion  valve.  A  counter  current  heat 
exchanger  was  used  as  the  evaporator  for  the  R-502  plant.  An  evaporator  for  the  R-12 
plant  was  constructed  of  9.5  mm  copper  tubing  which  was  coiled  and  placed  directly  in 
the  coolant  sump.  Both  plants  were  controlled  by  a  temperature  control  switch  with 
each  plant  having  its  own  thermostatic  expansion  valve.  The  plants  were  adjusted  to 
maintain  coolant  temperatures  at  about  -17  °C.  Figure  7  shows  a  schematic  of  the 
R-502  refrigeration  plant.  Figure  1  shows  placement  of  the  R-12  refrigeration  plant 
evaporator. 

3.  Pump  and  Control  Valve 

The  two  8  gpm,  115  V  Burks  turbine  type,  positive-displacement  pumps  were 
floor  mounted  next  to  the  coolant  sump.  One  pumped  the  ethylene  glycol/water  coolant 
mixture  through  the  R-502  counter-current  heat  exchanger.  The  other  pumped  the 
coolant  mixture  to  the  condensing  coil  via  control  valve  VC  (see  Figure  1).  Valve  VC 
was  the  operators  primary  control  device  to  maintain  saturation  pressure  at  a  desired 
value  by  varying  the  coolant  flow  rate  (and  hence  the  condensation  rate)  in  the 
condenser.  A  bypass  line  was  also  installed  on  the  discharge  line  from  the  pump.  Dis- 
charge bypass  was  controlled  by  valve  V9.  The  bypass  line  served  to  avoid  overloading 
the  positive  displacement  pump  when  small  heat  loads  were  placed  on  the  condenser 
(low  coolant  flow  rates).  The  bypass  return  line  returned  to  the  sump  via  a  penetration 
in  the  top  of  the  tank,  where  the  coolant  return  stream  from  the  condenser  returned  as 
well. 

E.     R- 114  RESERVOIR 

The  R-114  reservoir  was  an  aluminum  cylindrical  vessel,  230  mm  in  diameter  and 
254  mm  in  height.  The  reservoir  was  equipped  with  a  transparent  plastic  tubular  sight 
glass  to  monitor  liquid  level.  The  reservoir  was  located  within  the  apparatus  enclosure 
at  a  vertical  location  above  that  of  the  evaporator  and  below  that  of  the  condenser  to 
facilitate  both  gravity  flow  from  the  condenser  to  the  reservoir  and  from  the  reservoir" 
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Figure  7.      Schematic  of  R-502  Refrigeration  System 
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to  the  evaporator.  The  reservoir  could  be  replenished  from  an  outside  source  (storage 
cylinder)  via  a  connection  on  the  vacuum  line  from  the  condenser.  Vapor  from  the 
storage  cylinder  was  condensed  in  the  condenser  and  drained  into  the  reservoir.  The 
arrangement  of  the  reservoir  is  shown  in  Figure  1. 

F.  APPARATUS  ENCLOSURE 

The  apparatus  (apart  from  the  cooling  subsystem)  was  contained  in  an  aluminum 
framed,  plexiglas  enclosure.  The  enclosure  consisted  of  a  rectangular  welded  frame  ap- 
proximately 1  m  x  0.5  m  x  0.6  m.  The  frame  was  divided  into  upper  and  lower  halves 
with  the  lower  half  of  the  frame  straddling  and  enclosing  the  coolant  sump.  The  upper 
half  of  the  frame  was  enclosed  at  the  top  and  bottom  with  aluminum  sheet.  The  four 
remaining  sides  were  enclosed  with  13  mm  Plexiglas.  The  opposing  0.5  m  x  0.6  m 
plexiglas  sides  were  equipped  with  hinges  to  allow  access  to  the  interior.  The  refriger- 
ation plants,  pumps,  and  heat  exchanger  were  located  on  the  laboratory  floor  adjacent 
to  the  enclosure.  Data  acquisition  equipment  was  located  in  a  separate  cabinet  also 
adjacent  to  the  enclosure.  The  enclosure  provided  some  insulation  from  ambient  con- 
ditions and  provided  a  safety  barrier  between  personnel  and  the  apparatus  should  one 
of  the  glass  vessels  fail. 

G.  INSTRUMENTATION 
1.     Power  Measurement 

A  240  volt  AC  supply  was  used  as  the  power  source  for  the  apparatus  and  was 
controlled  via  a  variac.  Output  from  the  variac  ranged  from  0-220  V,  0-5  A,  adjustable 
by  the  operator,  to  obtain  a  desired  heat  flux  at  the  tube  surface.  Power  input  to  the 
tube  heater  was  measured  with  an  AC  current  sensor  and  a  voltage  sensor  (both  sensors 
output  in  volts).  The  voltage  sensor  output  was  also  processed  through  an  AC-DC  true 
R.M.S.  converter  which  provided  a  proportional  output  signal  (also  in  volts).  The  cur- 
rent and  R.M.S.  voltage  output  were  input  to  the  data  acquisition  system.  Calibration 
of  power  measurement  was  checked  by  comparing  voltage  and  amperage  measurements 
against  a  digital  voltmeter  and  ammeter.  The  power  measurement  system  is  shown 
schematically  in  Figure  8. 
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Schematic  of  the  Power  Measurement 
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2.     Temperature  Measurement 

Several  temperatures  were  monitored  throughout  the  apparatus.   These  were 

•  Average  test  tube  wall  temperature  (using  the  8  thermocouples  positioned  as  men- 
tioned above). 

•  Pool    temperature    (three    thermocouples    located    at    three    different    positions 
longitudinally  within  the  pool  but  at  approximately  the  same  height) 

•  Coolant  sump  temperature  (one  thermocouple) 

The  pool  thermocouples  were  inserted  into  special  housings  that  penetrated  the 
evaporator  endplates  (Figure  9).  The  main  body  of  the  housing  was  manufactured  from 
stainless  steel  (low  thermal  conductivity)  to  minimize  errors  in  pool  temperature  meas- 
urement due  to  conduction  from  the  surroundings  through  the  housing.  The  tip  of  the 
housing  was  manufactured  from  copper  to  take  advantage  of  copper's  high  thermal 
conductivity  and  to  minimize  the  temperature  difference  between  the  pool  and  the 
thermocouple. 

Copper-constantan  thermocouples  were  used  for  all  measurements. 
Thermocouples  were  read  directly  by  a  Hewlett-Packard  3497A  data  acquisition  system 
controlled  by  a  Hewlett-Packard  9826  computer.  The  average  temperature  for  each 
thermocouple  was  obtained  by  scanning  its  output  20  times  over  5  seconds  and  taking 
an  average. 

H.     DATA  ACQUISITION  AND  REDUCTION 

All  sensor  outputs  (thermocouples,  current  sensor  and  R.M.S.  voltage)  were  ana- 
lyzed by  a  Hewlett-Packard  9826  computer  and  the  data  stored  using  the  iterative  data 
collection/reduction  program  DRJP72  (Sugiyama's  single  tube  program  DRP71  [Ref.  1] 
was  used  during  initially  repeatability  experiments).  The  program  was  controlled  (by  the 
operator)  by  keyboard  interaction  to  prompt  the  system  to  take  desired  steps.  Raw  data 
was  stored  on  the  computer  hard  drive  while  a  printout  of  reduced  data  was  provided 
on  a  Hewlett-Packard  Inkjet  printer.  Channel  assignments  for  the  various  sensor  inputs 
to  the  data  acquisition  system  are  shown  in  Table  2. 
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Figure  9.      Sketch  of  Thermocouple  Mousing 
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Table  2.     HP  3497A  CHANNEL  ASSIGNMENTS 


Channel 

Assignment 

00-07 

Upper  test  tube  wall  temperatures 

08-15 

Lower  test  tube  wall  temperatures 

16-18 

Pool  liquid  temperatures 

19 

Coolant  sump  temperature 

20 

RMS  voltage  tube  heaters 

21 

Upper  tube  current  sensor 

22 

Lower  tube  current  sensor 
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Following    data    acquisition,    the    data    were    reduced    utilizing    the    following 
procedure*: 

1.  Input  the  name  of  the  user- specified  file  to  be  stored  on  hard  drive. 

2.  Select  number  of  tubes  to  be  powered  and  from  which  tube  data  is  to  be  collected 
(upper  or  lower). 

3.  Select  tube  type  (all  dimensions  of  the  boiling  test  tubes  are  then  automatically 
selected). 

4.  Set  desired  saturation  temperature  (°C)  of  the  pool  (for  these  tests,  2.2  °C  was  used, 
corresponding  to  approximately  1  atmosphere). 

5.  Input  desired  heat  flux  setting. 

6.  Set  desired  heat  fluxes  by  adjusting  appropriate  variac. 

7.  Set  desired  saturation  temperature  by  adjusting  flow  of  coolant  through  condenser 
coils  with  control  valve  VC. 

8.  Once  saturation  temperature  is  achieved,  wait  for  steady  state  conditions  (minimum 
of  5  minutes)  prior  to  taking  data. 

9.  Prompt  data  acquisition  unit  to  scan  all  channels  listed  in  Table  2.  All  channel 
readings  are  made  in  volts  and  stored  in  user  specified  fields. 

10.  Compute  parameters  from  these  voltages  (i.e.  temperature  and  power). 

11.  Compute  the  heat  transfer  rate  from  the  cartridge  heater. 

12.  Compute  the  average  wall  temperature  of  the  test  tubes  and  calculate  the  wall 
superheat  (Twall  —  Tsat) 

13.  Compute  the  physical  properties  of  R-114  using  the  property  correlations  (see 
Sugiyama[Ref.  1])  at  film  temperature  ((Twall  — Tsat)/2). 

14.  Compute  the  natural  convection  heat-transfer  coefficient  of  R-114  from  the  un- 
heated  ends  of  the  test  tubes. 

15.  Compute  heat  losses  from  the  unheated  ends  of  each  tube. 

16.  Calculate  heat  flux  from  the  heated  length  of  each  tube. 

17.  Calculate  the  heat-transfer  coefficient  of  the  R-114  from  the  heated  length 
of  each  tube. 

18.  Store  heat  flux  and  wall  superheat  for  each  data  set  in  user  specified  field. 

19.  Plot  the  data  using  available  software.   For  this  study,  plots  were  produced  on  the 
NPS  mainframe  computer. 

Sample  calculations  of  the  above  procedure  are  given  in  Appendix  A. 


1  This  procedure  was  essentially  identical  to  that  followed  by  Sugiyama  [Rcf.  1|  and  therefore 
his  procedure  is  largely  reproduced. 
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IV.     EXPERIMENTAL  PROCEDURE 

A.     ASSEMBLY 

The  mechanical  assembly  of  the  tubes  within  the  evaporator  was  very  straight  for- 
ward and  will  not  be  discussed  in  great  detail.  However  the  preparatory  steps  following 
assembly  are  important  from  the  point  of  view  of  ensuring  a  leaktight  apparatus  to 
prevent  loss  of  R-114  from  the  system  and  the  intrusion  of  noncondensable  gases  into 
the  system.  Additionally  it  should  be  noted  that  vertical  alignment  of  tubes  was  ensured 
by  using  an  air  bubble  level. 

1.  Pressure  Test  of  the  Apparatus 

Following  reassembly  of  the  evaporator,  a  pressure  test  was  conducted  on  the 
apparatus  by  pressurizing  the  system  (with  air)  up  to  10  psig.  A  soap-water  mixture 
then  was  sprayed  on  all  joints  and  leaks  were  detected  by  bubble  formation  from  the 
soap-water  mixture.  Any  leaks  were  then  repaired.  The  apparatus  was  repeatedly 
pressure  tested  until  there  were  no  "visible"  leaks  detected. 

2.  Vacuum  Test 

Following  a  successful  pressure  test,  the  apparatus  was  evacuated  (using  the 
vacuum  pump)  to  approximately  27  inHg.  The  apparatus  was  then  allowed  to  stand 
overnight.  If  an  appreciable  vacuum  loss  was  observed  (i.e.  a  drop  of  more  than  1  inHg. 
in  a  24  hour  period),  the  whole  process  was  repeated,  beginning  with  a  pressure  test, 
until  all  leaks  were  corrected. 

3.  Filling  the  Evaporator 

After  the  apparatus  was  successfully  vacuum  tested,  the  evaporator  was  filled 
from  the  R-114  reservoir.  The  pressures  were  first  equalized  between  the  evaporator  and 
the  reservoir  by  cracking  open  valve  V7.  R-l  14  liquid  was  then  drained  by  gravity  into 
the  evaporator  through  valve  V6  until  the  liquid  reached  the  desired  evaporator  level, 
approximately  10  mm  above  the  top  of  the  upper  tube.  Once  the  evaporator  was  filled, 
the  reservoir  was  isolated  from  the  rest  of  the  apparatus  by  closing  all  connecting  valves. 

4.  Sensor  Connections 

Thermocouple  leads  and  any  other  sensor  connections  were  not  reconnected 
until  the  evaporator  was  successfully  filled  without  leaks.  This  prevented  unnecessary 
wear  and  tear  on  the  heater  leads  and  thermocouple  wire  due  to  the  large  number  of  tube 
changes  required. 
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5.     Degassing  and  Acquisition  Channel  Check 

Once  all  connections  were  made,  program  SETUP72  checked  the  output  on  all 
channels.  Any  erroneous  output  was  promptly  investigated  and  the  necessary  cor- 
rections made.  Before  any  heat  was  applied  to  either  test  tube,  the  system  pressure  was 
reduced  to  the  desired  saturation  pressure  by  opening  flow  of  the  coolant  mixture  to  the 
condenser.  Each  tube  in  turn  was  boiled  vigorously  at  the  highest  heat  flux  setting 
(approximately  80  kWjm2)  for  about  10  minutes  in  order  to  degas  the  refrigerant  and  to 
remove  excess  air  from  the  tube  surface  cavities.  Noncondensable  gases  then  collected 
at  the  top  of  the  condenser  and  were  removed  by  the  vacuum  pump.  During  the 
degassing  procedure,  program  SETUP72  was  again  used  to  observe  thermocouple 
readings  and  power  sensors  to  ensure  proper  operation.  Any  faulty  thermocouples  were 
marked  to  ensure  they  were  excluded  during  data  runs.  Following  degassing,  the  appa- 
ratus was  secured  and  the  tubes  allowed  to  soak  overnight  in  the  R-114  pool  to  provide 
good  surface  wetting. 

B.    NORMAL  PROCEDURE 

The  following  procedure  was  used  to  obtain  heat  transfer  data2: 

1.  Prior  to  system  startup,  the  refrigeration  plants  were  operated  for  approximately  1 
hour  to  reduce  the  coolant  sump  temperature  to  about  -15  °C. 

2.  The  data  acquisition/control  unit,  computer  and  variac  panel  were  switched  on. 

3.  The  computer  program  SETUP72  was  loaded  and  run:  1)  All  data  acquisition 
channels  were  then  rechecked.  2)  A  power  output  of  approximately  2.5  Watts  was 
input  into  each  tube  to  check  operation  of  the  heater  and  power  sensors.  3)  The 
average  temperature  of  the  refrigerant  was  slowly  reduced  to  2.2  °C  by  circulating 
a  small  amount  of  coolant  through  the  condenser. 

4.  The  data  acquisition  program  DRP72  was  loaded  and  run. 

5.  The  desired  heat  flux  setting  for  the  lower  tube  was  input  to  the  program  and  the 
lower  tube  variac  adjusted  to  give  the  desired  heat  flux  (within  ±  500  Wjm1  ). 

6.  The  control  valve  VC  was  adjusted  to  regulate  the  flow  of  cooling  liquid  through 
the  condenser  to  maintain  a  constant  saturation  temperature  at  a  given  heat  flux. 
Desired  versus  actual  saturation  temperatures  were  monitored  continuously  by  the 
program  until  they  agreed  to  within  ±0.1  °C. 

7.  For  each  data  point,  conditions  in  the  evaporator  were  allowed  to  stabilize  for  at 
least  five  minutes  prior  to  taking  data.  The  following  raw  data  were  measured  and 
stored  in  a  user  specified  field:  local  test  tube  wall  temperatures,  pool  liquid  tem- 
peratures, sump  temperature,  current  sensor  readings  and  voltage  sensor  readings. 

2  Ibid 
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8.  Two  data  points  were  taken  at  each  desired  heat  flux  and  saturation  temperature. 
The  following  processed  data  were  recorded  as  a  printout:  wall  temperatures  of  the 
test  tubes,  liquid  pool  temperatures,  vapor  temperature,  sump  temperature,  wall 
superheat,  heat-transfer  coefficient  and  the  heat  flux. 

9.  For  each  data  set,  the  above  procedure  was  repeated  from  step  5.  Various  heat  flux 
steps  were  used  to  obtain  uniform  steps  on  a  log-log  scale.  For  increasing  flux, 
smaller  steps  were  used  up  until  the  incipience  of  boiling  in  order  to  accurately  de- 
termine the  point  of  incipience. 

C.    DATA  LISTING 

Data  were  filed  using  the  following  file  name  system: 

•  Files  were  given  10  character  names  (ex.   DAT0531I52). 

•  The  first  three  characters  DAT  simply  refer  to  data. 

•  The  next  four  characters  date  the  file  (0531  =  31  May). 

•  The  eighth  character  indicated  an  increasing  or  decreasing  run  (I  =  increasing,  D 
=  decreasing). 

•  The  ninth  character  indicated  tube  type  ad  listed  in  program  DRP72  (4  =  smooth 
tube,  5  =  High  Flux  tube). 

•  The  tenth  character  indicated  which  program  wad  used  DRP71  or  DRP72  (1  = 
DRP71,  2  =  DRP72). 

•  The  11th  character  when  present  indicated  successive  runs  for  the  indicated  tube 
and  indicated  program  for  that  day. 

Table  3  is  a  listing  of  data  runs. 
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Table  3.     LISTING  OF  DATA  RUNS 


Data  File 

Tube  Type 

Purpose 

DATO 122151 

High  Flux 

Cal;  repeatability;  single  tube 

DAT0123I52 

High  Flux 

Cal;  repeatability;  single  tube 

DATO  125 1 52 

High  Flux 

Repeatability;  p/d  =2 

DAT0127I2 

High  Flux 

Repeatability;  p/d=2 

DATO  130 1 52 

High  Flux 

Repeatability;  p/d=2 

DAT0130D52 

High  Flux 

Repeatability;  p/d  =2 

DAT03 12142 

Smooth 

Data;   repeatability;  p/d  =  2 

DAT0312D41 

Smooth 

Data;  repeatability;  p/d=2 

DAT03 13141 

Smooth 

Repeatability;  p/d  =  2 

DAT0313D41 

Smooth 

Repeatability;  p/d=2 

DAT03 17142 

Smooth 

Repeatability;  p/d  =2 

DAT0317D42 

Smooth 

Repeatability;  p/d=2 

DAT0320I41 

Smooth 

Repeatability;  p/d=2 

DAT0320D41 

Smooth 

Repeatability;  p/d=2 

DAT0330I42 

Smooth 

Repeatability;  p/d  =  2 

DAT0330D42 

Smooth 

Repeatability;  p/d  =2 

DAT0331I42 

Smooth 

Data;  p/d=  2;  500  \V\rri  on  lower 
tube 

DAT0331D42 

Smooth 

Data;  p/d=  2;  500  W\m2  on  lower 
tube 

DAT0401I42 

Smooth 

Data;  p/d  =2;  1  klVjm2  on  lower 
tube 

DAT0401D42 

Smooth 

Data;  p/d=  2;  1  kWjm2  on  lower 
tube 

DAT0404I42 

Smooth 

Data;  p/d  =  2;  1  k\V\m2  on  lower 
tube 

DAT0404I421 

Smooth 

Data;  p/d  =  2;  1  klVjm2  on  lower 
tube 

DAT0404D42I 

Smooth 

Data;  p/d  =2;  1  klVjm2  on  lower 
tube 

DAT0406I42 

Smooth 

Data;  p/d=  2;  10  k\V\m2  on  lower 
tube 
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Continuation  of  Table  3. 


Data  File 

Tube  Type 

Purpose 

DAT0406D42 

Smooth 

Data;  p/d  =  2;  10  kWjm2  on  lower 
tube 

DAT0407I42 

Smooth 

Data;  p/d  =  2;  25  kWjm2  on  lower 
tube 

DAT0407D42 

Smooth 

Data;  p/d=  2;  25  klVjm2  on  lower 
tube 

DAT0408I42 

Smooth 

Data;  p/d=2;  3  k\V\m2  on  lower 
tube 

DAT040SD42 

Smooth 

Data;  p/d=2;  3  kWjm2  on  lower 
tube 

DAT0410I42 

Smooth 

Data;  p/d=  2;  Tubes  run  up  to- 
gether 

DAT0410D42 

Smooth 

Data;  p/d=2;  Tubes  run  down 
together 

DAT0415I42 

Smooth 

Data;  p/d=  1.8;  10  kW\rrt  on 
lower  tube 

DAT0415D42 

Smooth 

Data;  p/d=  1.8;  10  kWjm2  on 
lower  tube 

DAT04 151421 

Smooth 

Data;  p/d=  1.8;  25  kW\m2  on 
lower  tube 

DAT0415D421 

Smooth 

Data;  p/d=  1.8;  25  kW\m2  on 
lower  tube 

DAT04 17142 

Smooth 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0417D42 

Smooth 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0418I42 

Smooth 

Data;  p/d=  l.S;  1  klVjm2  on 
lower  tube 

DAT0418D42 

Smooth 

Data;  p/d=  1.8;  I  k\V\m2  on 
lower  tube 

DAT0419I42 

Smooth 

Data;  p/d=  l.S;  3  klV/m1  on 
lower  tube 

DAT0419D42 

Smooth 

Data;  p,d=  l.S;  3  kWjm2  on 
lower  tube 

DAT0423I42 

Smooth 

Data;  p/d=  1.5;  no  power  on 
lower  tube 
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Continuation  of  Table  3 


Data  File 

Tube  Type 

Purpose 

DAT0423D42 

Smooth 

Data;  p/d  =  1.5;  no  power  on 
lower  tube 

DAT0424I42 

Smooth 

Data;  p/d- 1.5;  3  kW\m2  on 
lower  tube 

DAT0424D42 

Smooth 

Data;  p/d=  1.5;  3  kWjm2  on 
lower  tube 

DAT0425I42 

Smooth 

Data;  p/d=  1.5;  1  kWjm2  on 
lower  tube 

DAT0425D42 

Smooth 

Data;  p/d*  1.5;  1  kWjm2  on 
lower  tube 

DAT0426I42 

Smooth 

Data;  p/d=  1.5;  10  k\V\m2  on 
lower  tube 

DAT0426D42 

Smooth 

Data;  p/d=  1.5;  10  kW\m2  on 
lower  tube 

DAT0427I42 

Smooth 

Data;  p/d=  1.5;  25  kW\m2  on 
lower  tube 

DAT0427D42 

Smooth 

Data;  p/d=  1.5;  25  kWjm2  on 
lower  tube 

DAT0430I52 

High  Flux 

Data;  p/d=  1.5;  1  kWjm2  on 

lower  tube 

DAT0430D52 

High  Flux 

Data;  p/d=  1.5;  I  kW\m2  on 
lower  tube 

DAT0501I52 

High  Flux 

Data;  p/d=  1.5;  10  k\V\m2  on 
lower  tube 

DAT0501D52 

High  Flux 

Data;  p/d=  1.5;  10  k  W\m2  on 
lower  tube 

DAT0501I522 

High  Flux 

Data;  p/d=  1.5;  25  k\V\m2  on 
lower  tube 

DAT0501D522 

High  Flux 

Data;  p/d=  1.5;  25  k\V\m2  on 
lower  tube 

DAT0502I52 

High  Flux 

Data;  p/d=  1.5;  3  kWjm2  on 
lower  tube 

DAT0502D52 

High  Flux 

Data;  p/d=  1.5;  3  kWjm1  on 
lower  tube 

DAT0503I52 

High  Flux 

Data;  p,d=  1.5;  no  power  on 
lower  tube 
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Continuation  of  Table  3. 


Data  File 

Tube  Type 

Purpose 

DAT0503D52 

High  Flux 

Data;  p/d  =  1.5;  no  power  on 
lower  tube 

DAT0506I52 

High  Flux 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0506D52 

High  Flux 

Data;  p/d=  1.8;  no  power  on 
lower  tube 

DAT0507I52 

High  Flux 

Data;  p/d=.  1.8;  1  k\V\m2  on 
lower  tube 

DAT0507D52 

High  Flux 

Data;  p/d=  1.8;  I  kWjm2  on 
lower  tube 

DAT0508I52 

High  Flux 

Data;  p/d=  1.8;  3  kW\m2  on 
lower  tube 

DAT0508D52 

High  Flux 

Data;  p/d=  1.8;  3  kWjm2  on 
lower  tube 

DAT0508I521 

High  Flux 

Data;  p/d=  1.8;  10  kWjm2  on 
lower  tube 

DATO508D521 

High  Flux 

Data;  p/d=  1.8;  10  kW\m2  on 
lower  tube 

DAT0509I52 

High  Flux 

Data;  p/d=  1.8;  25  k\V\m2  on 
lower  tube 

DAT0509D52 

High  Flux 

Data;  p/d=  1.8;  25  kWjm2  on 
lower  tube 

DAT0509D52 

High  Flux 

Data;  p/d=  1.8;  25  kW\m2  on 
lower  tube 

DAT0515I52 

High  Flux 

Data;  p/d=  2;  25  kW\m2  on  lower 
tube 

DAT0515D52 

High  Flux 

Data;  p/d=  2;  25  kWjm2  on  lower 
tube 

DAT0516I52 

High  Flux 

Data;  p/d=  2;  10  k\V\m2  on  lower 
tube 

DAT0516D52 

High  Flux 

Data;  p/d=  2;  10  k\V\ml  on  lower 
tube 

DAT0517I52 

High  Flux 

Data;  p/d=2;  1  kWjm2  on  lower 
tube 

DAT0519I52 

High  Flux 

Data;  p/d=2;  3  kWjm2  on  lower 
tube 
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Continuation  of  Table  3 


Data  File 

Tube  Type 

Purpose 

DAT0520I52 

High  Flux 

Data;  p/d=2;  no  power  on  lower 
tube 

DAT0529I52 

High  Flux 

Data;  p/d=  2;  tubes  run  up/down 
together 

DAT0530I52 

High  Flux 

Data;  p/d=  2;  lower  tube  position 
plugged 
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V.     RESULTS  AND  DISCUSSION 

It  should  be  noted  and  it  is  stressed  that  results  are  expressed  in  terms  of  enhance- 
ment of  the  upper  tube  over  a  single  tube  and  that  the  results  are  applicable  to  this  ap- 
paratus. These  results  may  not  be  reproducible  outside  of  this  apparatus. 

A.     REPRODUCIBILITY 

To  investigate  repeatability,  tests  were  conducted  with  both  a  'single'  High  Flux  and 
smooth  tube  (with  only  the  upper  tube  operating).  Runs  were  conducted  using  both 
program  DRP71  (from  Sugiyama's  single  tube  work  [Ref.  I])  and  DRP72  with  no  heat 
flux  applied  to  the  bottom  tube.  This  ensured  that  the  new  program  DRP72  performed 
correctly.  An  additional  set  of  runs  were  made  using  the  pair  of  smooth  tubes  with  a 
heat  flux,  of  1  kWfm2  applied  to  the  lower  tube  using  program  DRP72.  The  runs  for  all 
these  comparisons  are  listed  in  Table  4.  A  pitch-to-diameter  ratio  of  2  was  used  for  the 
runs  listed  in  Table  4.  A  plot  of  heat  flux  vs.  wall  superheat  (Thetab)  for  these  runs  is 
shown  in  Figure  10  through  Figure  12.  Figure  10  shows  the  'single'  smooth  tube  data 
together  with  the  single  smooth  tube  data  of  Sugiyama  [Ref.  1].  The  three  runs  agree 
very  well  and  are  within  10%  of  Sugiyama's  data;  any  discrepancy  is  attributed  to  the 
presence  of  the  unheated  lower  tube  modifying  the  flow  over  the  upper  tube.  Clear  ev- 
idence of  hysteresis  is  seen  as  with  Sugiyama's  work;  as  the  heat  flux  is  decreased  ,  a 
closed  loop  is  formed  indicating  that  as  the  nucleation  sites  die  out,  the  transfer  mech- 
anism returns  to  one  of  natural  convection.  Figure  1 1  shows  the  'single'  High  Flux  tube 
data  together  with  the  single  tube  High  Flux  data  of  Sugiyama  [Ref.  1].  Again  good 
agreement  is  obtained  except  at  the- lowest  heat  fluxes  and  lowest  AT's  where  discrep- 
ancies of  up  to  50%  are  noted.  However,  due  to  the  very  high  uncertainty  in  this  region 
(marked  on  Figure  11),  primarily  due  to  uncertainty  in  the  wall  temperature  measure- 
ment due  to  the  fabrication  procedures,  the  agreement  is  still  considered  reasonable.  It 
should  also  be  noted  that  run  DAT0530  was  conducted  with  plugs  in  place  of  the  bottom 
tube  (as  opposed  to  the  bottom  tube  having  zero  applied  heat  flux)  and  also  shows  ex- 
cellent agreement.  This  indicates  quite  clearly  that  with  the  lower  tube  off,  the  upper 
tube  behaves  almost  exactly  like  a  single  tube.  Note  also  that  the  hysteresis  'loop'  is 
open  (again  similar  to  the  work  of  Sugiyama)  indicative  of  the  fact  that  there  are  still  a 
significant  number  of  active  nucleation  sites  operating  with  the  High  Flux  tube  even  at 
heat  fluxes  as  low  as  1000  W\m2.    Figure  12  shows  the  three  smooth  tube  runs  con- 
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ducted  with  a  ikW/m2  heat  flux  applied  to  the  bottom  tube.  Without  discussing  the 
significance  of  the  results  here  (see  section  B.),  it  can  be  seen  that  repeatability  is  good 
and  within  5%  for  all  three  data  sets.  Based  on  Figure  10  through  Figure  12,  data  re- 
peatability and  agreement  with  past  single  tube  work  carried  out  on  the  same  apparatus 
is  considered  good. 

Table  4.     DATA  RUNS  USED  FOR  REPEATABILITY 


Data  Set 

Tube  Type 

Lower  Tube  Setting 

DAT0313I41 

smooth 

no  power  on  lower  tube 

DAT0313D41 

smooth 

no  power  on  lower  tube 

DAT0320I41 

smooth 

no  power  on  lower  tube 

DAT0320D41 

smooth 

no  power  on  lower  tube 

DAT0330I42 

smooth 

no  power  on  lower  tube 

DAT0330D42 

smooth 

no  power  on  lower  tube 

DAT0401I42 

smooth 

1  kW\m2 

DAT0401D42 

smooth 

1  kW\m2 

DAT0404I42 

smooth 

1  kWjrri1 

DAT0404D42 

smooth 

1  kW\m2 

DAT04G7I42 

smooth 

1  kW\m2 

DAT0407D42 

smooth 

1  kW\m2 

DAT0123I52 

High  Flux 

no  power  on  lower  tube,  increas- 
ing run  only 

DAT0130I52 

High  Flux 

no  power  on  lower  tube 

DAT0130D52 

High  Flux 

no  power  on  lower  tube 

DAT0530I52 

High  Flux 

lower  tube  removed  and  position 
plugged,  increasing  and  decreas- 
ing run  recorded  in  this  file 

B.     INFLUENCE  OF  THE  LOWER  TUBE 

To  investigate  the  influence  of  a  lower  upon  an  upper  tube,  each  upper  tube  (for 
both  types  of  tube  surface)  was  run  up  and  down  (starting  in  the  convection  region) 
through  various  heat  flux  settings  for  three  different  pitch-to-diameter  (p/d)  ratios  and 
Civq  different  fixed  heat  flux  settings  on  the  lower  tube.  Note  that  in  each  test,  the  same 
tube  surface  was  used  for  the  upper  tube  and  the  lower  tube  (i.e.  the  surfaces  wore  never 
mixed).   The  p/d  ratios  used  were  1.5,  1.8  and  2.   A  p/d  ratio  of  2  was  selected  to  match 
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the  vertical  pitch,  not  only  in  Naval  centrifugal  flooded  evaporators,  but  also  in  the 
bundle  apparatus  in  the  Heat  Transfer  Laboratory.  The  fixed  lower  tube  heat  flux  set- 
tings (LTHFS)  used  were  0,  1,  3,  10  and  25  kWjm2  (there  was  one  test  conducted  with 
a  lower  tube  heat  flux  setting  of  500  Wjm2).  To  evaluate  the  influence  of  the  lower  tube, 
the  data  has  been  presented  in  two  ways:  the  first  by  common  p/d  ratio  and  the  second 
by  common  LTHFS.  In  every  case,  plots  of  heat  flux  vs  AT  are  shown. 
1.  The  Effect  of  Heating  the  Lower  Tube 
a.     Smooth  Tube  pj d  Ratio  of  2 

Figure  13  shows  data  taken  for  a  p/d  ratio  of  2  for  the  six  LTHFS  labeled 
in  the  legend  representing  kWjm2  and  CC  representing  the  Churchill  and  Chu  correlation 
[Ref.  2].  This  labeling  was  used  for  all  the  5  subsequent  plot  legends.  An  extra  run  was 
made  at  this  pitch  with  a  LTHFS  of  500  Wjm2  for  comparison.  The  natural  convection 
regime  shows  very  small  enhancements  with  increasing  LTHFS  of  up  to  3  kW\m2.  Of 
note  is  that  for  LTHFS  of  0,  0.5,  1,  and  3  kW\m2 ,  the  lower  tube  was  in  the  convection 
regime  at  the  beginning  of  the  increasing  run.  For  the  10  and  25  kWjm2  case  the  lower 
tube  had  nucleated  immediately  and  was  nucleating  for  the  entire  run.  The  natural 
convection  curves  are  still  very  close  to  values  calculated  from  Churchill  and  Chu's  cor- 
relations  [Ref.  2]  and  relatively  parallel  with  one  another.  It  can  be  seen  that  for  a 
LTHFS  of  500  Wjm2,  the  top  tube  behaves  almost  as  if  it  were  a  single  tube  (i.e.  agrees 
with  a  LTHFS  of  0).  In  this  case,  the  lower  tube  remained  in  the  natural  convection 
regime  for  the  entire  run  and  shows  that  if  this  is  the  case,  little  to  no  enhancement  of 
the  upper  tube  is  obtained  at  any  heat  flux.  The  point  of  incipience  is  different  for  each 
LTHFS  and  proved  to  be  a  fairly  random  event  for  the  smooth  tubes,  occurring  around 
12  kWjm2.  In  all  cases  except  the  0  and  500  Wjm2,  the  lower  tube  was  "seeded"  by 
bubbles  from  the  R-l  14  return  line  (impinging  upon  the  lower  tube)  when  at  a  high  flux 
(>  IQkWjm2)  on  the  upper  tube.  The  lower  tube  then  continued  to  nucleate  after  being 
'seeded'  throughout  the  remainder  of  the  run.  The  LTHFS  of  0,  0.5,  1  and  3  kWjm2 
showed  enhancement  upon  nucleation,  jumping  to  a  common  nucleate  boiling  curve. 
This  entire  run  showed  a  very  definite  hysteresis  effect  and  was  very  similar  to 
Sugiyama's  [Ref.  1]  single  tube  data.  Following  nucleation,  the  four  lower  LTHFS  fol- 
lowed an  identical  nucleate  boiling  curve  for  the  remainder  of  the  increasing  run.  On  the 
decreasing  run,  the  two  lowest  LTHFS  showed  a  gradual  return  to  the  convection  curve 
indicating  a  gradual  deactivation  of  nucleation  sites  as  heat  flux  was  reduced  on  the 
upper  tube.  This  coincided  with  no  nucleation  on  the  lower  tube  and  also  agreed  well 
with  Sugiyama's  [Ref.  1]  single  tube  results.    The  remaining  LTHFS  departed  from  this 
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curve  (on  the  decreasing  run)  and  showed  significant  enhancements  (almost  an  order  of 
magnitude  over  a  single  tube  at  the  lowest  heat  fluxes).  The  enhancement  increased  with 
increasing  the  LTHFS  until  at  LTHFS  above  10  kWjm2,  additional  enhancement  was 
minimal.  The  curves  followed  by  LTHFS  greater  than  1  kWjm2  during  the  decreasing 
run  were  also  parallel  to  the  increasing  run  natural  convection  curves.  This  suggests 
strong  convection  effects  on  the  upper  tube  when  the  lower  tube  is  nucleating  and  heat 
flux  setting  on  the  upper  tube  is  below  10  k\V\m2  .  This  agrees  well  with  the  data  of 
Fujita  er  al.  [Ref.  13].  It  should  be  noted  that  all  LTHFS  followed  the  same  curve  above 
an  upper  tube  heat  flux  setting  of  approximately  20  k\V\m2  showing  no  effect  of  LTHFS 
at  high  flux  settings  on  the  upper  tube.  This  too  is  in  agreement  with  Fujita  et  al..  Of 
particular  note  is  that  the  two  highest  LTHFS  follow  the  same  curve  for  both  increasing 
and  decreasing  runs,  indicating  complete  elimination  of  hysteresis  prominent  in  single 
tube  data.  The  above  discussion  indicates  a  significant  effect  of  the  lower  tube  upon  the 
upper  tube  when  the  lower  tube  is  nucleating.  There  are  almost  negligible  enhancements 
when  both  tubes  are  in  the  convection  regime. 

b.  Smooth  Tube  p/d  Ratio  of  1.8. 

The  smooth  tube  tuns  with  a  p/d  ratio  of  1.8  ,  shown  in  Figure  14,  show 
very  similar  results  to  that  for  a  p/d  of  2.  As  before  for  LTHFS  of  0,  1  and  3  kW/m2, 
both  tubes  begin  in  the  convection  regime  for  the  increasing  run:  again  no  significant 
enhancement  is  seen  in  this  region,  although  these  curves  are  in  better  agreement  with 
Churchill  and  Chu  [Ref.  2].  For  a  given  LTHFS,  onset  of  nucleate  pool  boiling  (ONB) 
occurs  at  different  heat  fluxes  than  in  Figure  13,  demonstrating  the  random  nature  of 
this  phenomena.  A  common  nucleate  boiling  curve  is  followed  by  all  LTHFS  runs 
above  an  upper  tube  heat  flux  setting  of  about  20  k  W\m2.  Hysteresis  effects  are  similar 
for  low  LTHFS  as  are  the  elimination  of  hysteresis  for  the  two  highest  LTHFS.  The 
lower  tube  was  seeded  by  bubbles  from  the  R-114  return  line  at  high  upper  tube  heat 
flux  for  all  LTHFS  (except  0).  When  compared  with  Figure  13,  the  same  enhancement 
factors  are  seen  at  all  but  the  highest  heat  fluxes,  where  the  1.8  p/d  shows  a  slight  en- 
hancement over  the  2  p/d.   This  will  be  shown  more  clearly  on  a  later  graph. 

c.  Smooth  Tube  p/d  of  1.5 

The  same  trends  and  enhancements  seen  in  the  previous  two  p/d  ratios  are 
also  seen  in  Figure  15.  LTHFS  of  0,  1  and  3  are  very  similar  to  the  previous  two  p/d 
ratios  with  no  appreciable  enhancement  in  the  convection  region.  The  lower  tube 
started  in  the  convection  region  for  LTHFS  of  0,  1  and  3,  and  was  nucleating  throughout 
for  LTHFS  of  10  and  25  klVjm2    The  lower  tube  nucleated  via  'seeding'  at  high  fluxes 
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Figure  13.      Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  2  for  Smooth 
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Smooth  Tube 


39 


on  the  upper  tube  as  for  the  previous  two  p/d  ratios.  ONB  for  the  upper  tube  continued 
to  be  a  statistical  phenomenon.   Similar  hysteresis  patterns  arc  also  seen.  At  the  highest 
heat  flux  settings,  the  1.5  p/d  shows  a  degradation  compared  to  both  the  1.8  and  2.0  p/d. 
This  will  again  be  shown  more  clearly  on  a  later  graph. 
d.     High  Flux  Tube  p/d  of  2 

A  plot  of  data  runs  made  for  the  High  Flux  tube  with  a  p/d  ratio  of  2  is 
shown  in  Figure  16.  The  convection  region  looks  very  similar  to  that  of  the  smooth 
tubes  in  that  they  agree  fairly  well  with  Churchill  and  Chu  [Ref.  2].  Also,  there  is  no 
appreciable  enhancement  in  the  convection  region  for  increases  in  LTHFS  from  0  to  3 
kWjm2.  For  LTHFS  of  0,  1  and  3,  the  lower  tube  remained  in  the  convection  regime 
until  nucleation  of  the  top  tube,  as  with  the  smooth  tube  cases.  However  for  all  the 
High  Flux  tube  runs,  with  the  exception  of  the  0  LTHFS,  the  lower  tube  nucleated  at 
the  same  time  as  the  upper  tube  when  both  tubes  started  in  the  convection  regime.  This 
appeared  to  be  due  to  the  explosive  nature  of  nucleation  with  these  enhanced  surfaces 
which  caused  vapor  to  impinge  upon  the  lower  tube  thereby  causing  immediate 
nucleation  on  the  lower  tube  as  well;  there  are  probably  significant  shock  waves  set  up 
within  the  pool  that  add  to  this  nucleation  of  the  lower  tube  as  well.  Once  the  upper 
tube  nucleated,  the  three  LTHFS  curves  jumped  to  a  common  nucleate  boiling  curve, 
and  demonstrated  a  significant  temperature  overshoot,  similar  to  that  found  by 
Sugiyama  [Ref.  1]  for  a  single  High  Flux  Tube.  These  LTHFS  runs  followed  the  same 
nucleate  boiling  curve  for  the  remainder  of  the  increasing  run  and  for  the  entire  de- 
creasing run;  the  form  of  the  hysteresis  loop  agreed  very  well  with  Sugiyama's  single  tube 
work  [Ref.  I  J. 

The  lower  tube  nucleated  from  the  beginning  of  the  increasing  run  for  a 
LTHFS  of  10  and  25  fcW/m2.  Unlike  the  smooth  tubes,  the  hysteresis  loop  is  not  com- 
pletely eliminated  for  these  two  LTHFS.  These  curves  demonstrate  that  the  upper  tube 
experiences  several  effects  during  the  increasing  run.  The  segment  of  the  curve  between 
500  and  1000  Wjm2  is  parallel  to  the  natural  convection  curves  but  well  to  the  left  (i.e. 
well  enhanced),  indicating  strong  convection  effects  due  to  the  bubble  plume  from  the 
lower  tube  sliding  over  the  upper  tube.  This  segment  of  the  curve  agrees  very  closely  with 
that  for  the  smooth  tube  in  the  convection  region  for  the  same  pitch  and  the  same 
LTHFS.  This  indicates  that  the  bubbles  sweeping  over  the  upper  non-nucleating  High 
Flux  tube  have  the  same  enhancement  effect  as  on  an  upper  non-nucleating  smooth 
tube,  i.e.  it  makes  no  difference  which  tube  surface  is  used  because  the  majority  of  'he 
heat  transfer  is  associated  with  the  bubble  plume  sweeping  over  the  upper  tube  from  the 
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nucleating  tube  below.  This  supports  Cornwell's  bubble  sweeping  hypothesis  at  low 
heat  fluxes  [Ref.  17].  For  upper  tube  heat  fluxes  above  1000  Wjm2,  the  curves  for  both 
the  10  and  25  kWjm2  LTHFS  show  almost  vertical  slopes,  indicating  partial  nucleation 
and  mixed  convection,  eventually;  at  high  enough  heat  flux  as  they  join  the  same  com- 
mon nucleate  boiling  curve  as  before  with  LTHFS  of  0,  1  and  3  klV/m2  All  decreasing 
runs  for  all  LTHFS  followed  the  same  curve,  and  agreed  closely  with  both  the  0  LTHFS 
and  with  single  tube  data  (Sugiyama  [Ref.  1  ])  for  decreasing  heat  flux.  There  is  some 
difference  between  the  curves  on  the  decreasing  run  at  low  fluxes;  however  these  differ- 
ences are  within  the  experimental  uncertainty  which  is  largest  in  this  region.  The  above 
suggests  that  there  is  no  enhancement 

of  the  upper  tube  heat  transfer  coefficient  gained  by  heating  the  lower  tube  at  a  p/d  of 
2. 

e.     High  Flux  Tube  p/d  Ratio  of  1.8 

Figure  17  for  a  p/d  of  1.8  is  almost  identical  to  that  for  a  pitch  of  2.  The 
same  effects  (as  discussed  for  Figure  16  above)  apply  equally  to  Figure  17.  Convection 
and  nucleate  region  curves  fall  on  top  of  each  other  with  the  upper  tube  nucleating  at 
almost  the  same  heat  fluxes.  The  first  segment  between  500  and  1000  W\m2  for  LTHFS 
of  10  and  25  kW/rri1  agrees  very  closely  with  the  nucleate  boiling  region  for  the  smooth 
tube  for  the  same  pitch.  The  reasons  for  this  are  also  discussed  above,  and  demonstrate 
the  repeatability  of  this  effect.  The  excellent  agreement  between  the  plots  in  Figure  17 
and  Figure  16  suggests  that  there  is  no  effect  of  tube  spacing  at  any  heat  flux.  This  will 
become  clearer  in  later  figures. 

/.     High  Flux  Tube  p/d  Ratio  of  1.5 

Figure  18  shows  the  plot  for  a  pitch  of  1.5  to  be  almost  identical  to  the 
plots  for  pitches  of  1.8  and  2.  The  differences  in  the  plot  are  in  the  same  areas  as  in  the 
previous  pitch.  The  upper  tube  nucleates  at  different  fluxes  than  in  the  previous  two 
pitches,  again  demonstrating  the  somewhat  random  nature  of  ONB.  In  all  other  respects 
the  plot  is  identical  to  the  previous  two,  further  reinforcing  that  there  is  nothing  to  be 
gained  from  an  upper  enhanced  tube  by  the  presence  of  a  nucleating  lower  enhanced 
tube  except  if  the  upper  tube  is  in  the  natural  convection  region. 
2.  The  Effect  of  Tube  Spacing 
a.     Lower  Tube  Unheated 

To  show  the  effect  of  tube  spacing,  plots  have  been  made  for  all  three 
pitch-to-diameter  ratios  at  each  LTHFS  used.  For  the  base  of  an  unheated  lower  tube, 
the  data  are  shown  in  Figure  19  for  both  the  smooth  and  High  Flux  tubes  for  all  three 
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Figure  16.      Comparison  of  Lower  Tube  FIilx  Settings  for  a  p/d  Ratio  of  2  for  High 
Flux  Tube 
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Figure   17.      Comparison  of  Lower  Tube  Flux  Settings  for  a  p/d  Ratio  of  1.8  for  High 
Flux  Tube 
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Figure  18.      Comparison  of  Loner  Tube  Flux  Settings  for  a  p/d  Ratio  of  1.5  for  High 
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values  of  p/d  tested.  This  plot  clearly  shows  the  hysteresis  loop  for  the  smooth  tubes 
(discussed  earlier)  and  the  earlier  incipient  point  associated  with  the  High  Flux  tubes. 
It  should  be  noted  that  on  a  log/log  plot,  the  temperature  overshoot  for  the  High  Flux 
tubes  looks  much  larger  than  that  for  the  smooth  tubes.  In  fact  it  is  the  other  way 
around,  with  a  smooth  tube  temperature  overshoot  of  around  25  K  and  a  High  Flux 
value  around  15  K.  In  the  natural  convection  region,  all  the  data  fall  very  closely  to- 
gether. Following  nucleation  of  the  upper  tube,  the  three  curves  for  each  tube  jump  to 
that  tube's  respective  nucleate  boiling  curve  for  the  remainder  of  the  run;  these  curves 
agree  well  with  Sugiyama's  [Ref.  1]  single  tube  data  for  both  smooth  and  High  Flux 
tubes.  As  expected  for  an  unheated  tube,  there  is  no  effect  of  tube  spacing  for  High 
Flux  tubes  for  any  heat  flux.  However  for  the  smooth  tubes  at  high  heat  fluxes,  there 
does  appear  to  be  a  definite  effect  of  tube  spacing,  with  a  p/d  of  1.8  giving  the  best  heat 
transfer  performance.  With  the  bottom  tube  unheated,  it  is  unclear  as  to  why  this 
should  be  the  case  (except  that  its  presence  obviously  effects  the  circulation  patterns  in 
the  evaporator),  but  as  will  be  seen,  this  trend  is  consistent  even  when  the  lower  tube  is 
heated. 

b.    Lower  Tube  Heat  Flux  Setting  of  1  k  Wjm* 

Results  for  both  tube  surfaces  at  three  values  of  p/d  for  a  1  kWjm2  LTHFS 
are  shown  in  Figure  20.  In  the  natural  convection  region,  it  appears  that  both  High 
Flux  and  smooth  tubes  show  a  small  increasing  enhancement  with  increasing  tube 
spacing.  This  agrees  with  Sparrow  and  Niethammers  [Ref.  11]  and  iMarsters  [Ref.  12] 
work  with  air.  It  should  be  noted  that  for  this  LTHFS,  both  upper  and  lower  tube  were 
in  the  convection  region  at  the  start  of  the  increasing  run.  Figure  20  also  shows  the 
lower  nucleation  heat  fluxes  associated  with  ONB  for  High  Flux  tubes.  Once  the  upper 
tubes  nucleate,  all  curves  'jump'  to  a  nucleate  boiling  curve.  The  High  Flux  tubes  follow 
the  same  nucleate  boiling  curve  regardless  of  spacing  for  the  remainder  of  the  run.  This 
suggests  that  for  a  High  Flux  tube  which  is  nucleating,  there  is  no  effect  of  heating  from 
a  lower  tube  with  a  LTHFS  of  1  kWjm2  or  less  for  any  p/d  ratio.  The  smooth  tubes  on 
the  other  hand,  do  show  small  enhancements  throughout  the  nucleate  region  for  the 
three  values  of  p/d.  These  are  similar  to  the  data  shown  in  Figure  19  when  the  bottom 
tube  was  present  but  not  heated,  and  suggests  that  these  effects  are  directly  related  to 
the  tube  spacing  itself  and  not  due  to  the  fact  that  the  lower  tube  is  heated.  In 
Figure  20,  there  does  seem  to  be  some  effect  of  p/d  at  these  lower  heat  fluxes  on  the 
boiling  curve;  furthermore,  this  appears  to  be  opposite  to  the  trend  found  at  high  heat 
fluxes,  i.e.  a  p/d  of  1.5  gives  the  best  heat  transfer.  However,  this  is  thought  to  be  ex- 
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perimental  scatter  as  it  does  not  occur  on  later  graphs,  whereas  the  effect  at  high  heat 
fluxes  is  very  repeatable. 

c.  Lower  Tube  Heat  Flux  Setting  of  3  k\V\m2 

The  plot  shown  in  Figure  21  for  a  LTHFS  of  3  kWJm2  is  very  similar  to  that 
for  1  kW\m2.  The  same  enhancement  trends  are  seen  in  the  convection  region  in  that 
both  tubes  show  increasing  enhancement  with  increasing  pitch,  with  the  exception  of  the 
smooth  tube  with  a  p/d  of  1.8.  This  is  believed  to  be  due  to  scatter  because  the  per- 
formance shown  for  both  tubes  for  the  other  LTHFS 

in  the  natural  convection  regime  tend  to  follow  an  increasing  enhancement  with  pitch 
trend.  It  should  be  noted  for  this  LTHFS  that  both  lower  and  upper  tube  were  in  the 
convection  region  at  the  beginning  of  the  increasing  run.  Once  the  upper  tube  had 
nucleated,  then  the  lower  tube  also  started  to  nucleate  from  the  'seeding'  process  men- 
tioned earlier.  Following  nucleation,  the  High  Flux  runs  show  the  same  results  as  in  the 
previous  LTHFS.  The  smooth  tube  still  shows  small  enhancements  at  high  heat  fluxes 
as  in  the  previous  LTHFS,  with  a  pitch  of  1.8  giving  the  best  enhancement.  However 
in  the  boiling  region  below  IQkW/m2,  no  enhancements  are  discernable  due  to  p/d  (as 
mentioned  earlier)  and  the  curves  fall  directly  on  top  of  one  another. 

d.  Lower  Tube  Heat  Flux  Setting  of  10  k  Wjm2 

It  should  be  noted  that  for  this  LTHFS,  the  lower  tube  nucleated  at  the 
beginning  of  the  run  and  remained  that  way  throughout  the  run.  The  plot  for  a  LTHFS 
of  10  kWfm2  is  shown  in  Figure  22  and  clearly  shows  the  elimination  of  hysteresis  for 
the  smooth  tube.  Thus  the  effect  of  the  bubbles  from  the  lower  tube  sweeping  over  the 
upper  tube  (even  when  the  upper  tube  is  in  the  convection  region)  is  enough  to  'simulate' 
full  nucleation  from  the  upper  tube,  again  supporting  Cornwell's  hypothesis  that  at  low 
heat  fluxes,  the  majority  of  the  heat  transfer  from  upper  tubes  in  a  bundle  is  due  to 
convection  effects  from  below.  Figure  22  also  clearly  shows  that  there  is  no  effect  of 
spacing  for  smooth  tubes  except  at  high  heat  fluxes,  as  before  (above  20  klVjm2).  For 
the  High  Flux  tube  it  is  clear  that  there  is  no  effect  of  spacing  in  the  decreasing  portion 
of  the  curve  as  before.  It  is  unclear  what  influence  spacing  may  have  on  the  increasing 
curve  as  any  effects  appear  quite  random.  This  suggests  that  the  effect  of  spacing  in  this 
region  is  very  small  if  not  negligible.  As  mentioned  earlier,  the  segment  of  the  increasing 
High  Flux  curve  between  500  and  1000  Wjm2  is  parallel  and  very  close  to  the  same  seg- 
ment for  the  smooth  tube  curve.  Note  that  for  the  smooth  tube,  the  curve  is  the  same 
for  increasing  and  decreasing  heat  flux,  suggesting  that  the  top  tube  is  not  nucleating 
at  these  low  heat  fluxes  and  that  the  enhancement  seen  is  due  entirely  to  the  sweeping 
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Figure  20.      Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  1  k  Wjm1 
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Figure  21.      Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  3  kWfm? 
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bubbles  from  below.  This  implies  that  both  tubes  experience  very  similar  convective 
effects  when  influenced  by  a  vigorously  boiling  tube  below.  This  was  discussed  in  more 
detail  earlier. 

e.     Lower  Tube  Heat  Flux  Setting  of  25  k  W\m2 

Figure  23  shows  results  for  a  LTHFS  of  25  kW/tn2  and  is  very  similar  to 
that  for  10  kW\m2.  It  should  be  noted  that  the  lower  tube  in  each  case  was  nucleating 
from  the  beginning  of  the  run.  The  only  region  where  spacing  has  any  effect  is  in  the 
high  heat  flux  boiling  region  (above  20  kWIm2)  for  the  smooth  tube.  As  in  the  previous 
case,  any  effects  of  tube  spacing  on  the  High  Flux  tube  can  be  considered  negligible. 
Again,  of  particular  interest  is  the  segment  of  the  increasing  curves  between  500  and 
1000  W\m2.  Here  the  curves  for  the  smooth  and  High  Flux  tube  fall  on  top  of  one  an- 
other, further  implyimg  that  at  low  heat  fluxes  (with  the  lower  tube  nucleating  vigor- 
ously) the  convection  effects  on  the  two  types  of  surface  are  the  same.  Of  note  is  the 
excellent  repeatability  of  the  data. 

3.    Both  Tubes  Subject  To  the  Same  Heat  Flux 

In  addition  to  the  data  already  presented,  two  additional  runs  were  conducted, 
(one  for  each  type  of  tube)  in  which  the  upper  and  lower  tube  were  run  up  and  down 
together  at  the  same  heat  flux  setting;  these  tests  were  both  conducted  with  a  p/d  of  2. 
It  should  be  noted  that  the  upper  and  lower  tubes  were  in  the  convection  region  at  the 
beginning  of  the  runs.  The  results  of  these  two  tests  (for  the  upper  tube  only)  are  shown 
in  Figure  24.  The  High  Flux  tube  data  fall  on  top  of  previous  data,  showing  no  effect 
of  the  lower  tube  throughout  the  entire  heat  flux  range.  This  was  expected  due  to  the 
'repeatability'  of  the  High  Flux  tube  shown  in  Figure  19  through  Figure  23.  The 
smooth  tube  shows  a  much  earlier  incipient  heat  flux  for  the  upper  tube.  However,  there 
is  a  large  step  in  heat  flux  at  this  point  due  to  the  upper  tube  suddenly  nucleating  at  a 
lower  than  expected  heat  flux  (the  cause  of  this  nucleation  is  unknown  and  may  be  just 
a  function  of  the  randomness  of  this  phenomenon  mentioned  earlier).  Apart  from  its. 
early  ONB,  the  smooth  tube  follows  a  very  similar  boiling  curve  to  that  shown  previ- 
ously for  a  p/d  of  2.  At  the  lowest  values  of  heat  flux,  the  hysteresis  'loop'  is  still  slightly 
open;  this  is  because  the  lower  tube  still  has  a  small  number  of  active  nucleation  sites 
which  are  slightly  enhancing  the  top  tube.  At  1  &capflux.,  the  difference  between  the 
increasing  and  decreasing  values  of  AT  is  similar  to  that  found  on  Figure  20  for  a 
LTHFS  of  1  k\V\m2.  This  also  true  for  the  other  LTHFS,  i.e. the  curve  on  Figure  24 
coincides  at  one  point  with  the  boiling  curves  in  Figure  19  through  Figure  23  at  the 
respective  LTHFS.    Of  particular  interest  is  that  the  foregoing  results  agree  with  and 
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Figure  23.      Comparison  of  Pitches  for  a  Lower  Tube  Heat  Flux  Setting  of  25  k  Wjm1 
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complement  certain  results  found  from  the  bundle  apparatus  in  the  Heat  Transfer  labo- 
ratory. Not  too  many  conclusions  can  be  drawn  from  Figure  24  due  to  the  lack  of  data 
taken  at  other  spacings.  This  is  one  area  which  should  be  further  investigated  in  the 
future. 
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Figure  24.      Comparison  of  Upper  and  Lower  Tube  Run  Together 
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VI.     CONCLUSIONS 

1.  There  is  no  effect  of  tube  spacing  on  High  Flux  tube  performance  at  any  heat  flux. 

2.  The  effect  of  tube  spacing  on  smooth  tube  performance  is  present  (but  small)  in  the 
convection  region.  At  high  fluxes  (>  20  k  W\m2),  there  is  a  systematic  dependence  on 
tube  spacing  with  a  p/d  ratio  of  1.8  giving  the  best  heat  transfer  performance. 

3.  A  nucleating  lower  High  Flux  tube  significantly  enhances  an  upper  High  Flux  tube  in 
the  convection  region  due  to  bubble  sweeping.  There  is  no  effect  of  a  heated  lower  tube 
on  a  nucleating  upper  High  Flux  tube. 

4.  A  vigorously  nucleating  lower  smooth  tube  (>  10  kWjm2)  eliminates  all  hysteresis  ef- 
fects on  an  upper  tube.  A  partially  nucleating  lower  smooth  tube  {<>  3  k  Wfm2)  signif- 
icantly enhances  (by  an  order  of  magnitude)  an  upper  smooth  tube. 

5.  For  low  upper  tube  heat  flux  settings  (<  1000  W\n?)  and  vigorous  nucleation  on  the 
lower  tube,  High  Flux  and  smooth  tubes  exhibited  similar  performance  demonstrating 
that  the  majority  of  the  heat  transfer  is  due  to  bubble  sweeping  from  below. 
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VII.     RECOMMENDATIONS 

1.  Continue  present  work  with  other  spacings  and  'bundle'  configurations. 

2.  Adapt  the  current  apparatus  to  provide  a  larger  evaporator  to  accommodate  more 
than  two  tubes.  This  would  probably  also  provide  better  conditions  for  videotaping  the 
phenomena  within  the  evaporator. 

3.  Resume  experiments  operating  both  tubes  at  the  same  heat  fluxes  for  other  spacings. 

4.  Pursue  modeling  of  the  enhancement  effect,  taking  into  account  the  mixed  effects  of 
convection  (from  a  lower  tube).  Studies  of  a  smooth  tube  placed  above  an  enhanced 
tube  might  shed  light  on  this. 

5.  Measurement  of  temperature  in  the  plume  from  the  lower  tube  to  study  the  effect  of 
spacing  in  both  the  natural  convection  and  boiling  region. 

6.  Acquisition  of  a  Hewlett-Packard  to  IBM  converter  would  greatly  increase  the  ability 
to  produce  results  from  processed  data  within  a  short  time  frame. 
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APPENDIX  A.     SAMPLE  CALCULATIONS 

Data  set  DAT0529I52  was  chosen  for  sample  calculations.   The  saturation  temper- 
ature was  2.25  °C,  the  heat  flux  on  the  upper  tube  was  35590  Wjm2. 

A.  TEST-TUBE  DIMENSIONS 

Do  =  0.01582  m 
ZW-  0.0132  m 
ZM=  0.013  m 
L  =  0.190  m 

Lu  =  0.076  m 

B.  MEASURED  PARAMETERS 

V    =  147.55  V 

I    =2.44  A 
71  =  5.88°C 
T2  =4.90°C 

73  =5.38°C 

74  not  read,  defective 

75  =5.77°C 

76  =7.06°C 
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77  =  5.66°C 
TS  =  5.48°C 
Tsat  =  2.25°C 
kc  =  45  W\m  .  K 

C.     OUTER  WALL  TEMPERATURE  OF  THE  TEST  TUBE 

p  =  Tz.Do  =  Tf  0.01582  =  0.0497  m 


Ac  =  n{Do2  -  Z)/2)/4  =  tt{(0.01582)2  -  (0.0132)2}/4 


Ac  =  5.97  x  10"5  rn 


Qh=VI=  145.55  .  2.44  =  360.02  W 


Tavg  =  I,Tnlm  =  5.130C 


where  m  =  the  number  of  operational  thermocouples  used 
Two  -  7av£  -  Qh  .  { \n(DojDl)l(2  *n*L*  kc)} 


Two  =  5.73  -  360.02{  ln(  qq}^  )/(2  ■  "  *  °-2032  • 45)} 


Two  =  4.48  °C 

0  =  7V<?  -  7sa/  =  4.48  -  2.25  =  2.23  °C 
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D.     PROPERTIES  OF  R-l  14  AT  FILM  TEMPERATURE 

7/=  (Two  +  Tsat)/2  =  (4.48  +  2.25)/2  =  3.36  °C 


ix  =  exp[  -4.4636  +  (101 1.47/7/)]  •  10"3 


M  -  exp[  -4.4636  +  (101 1.47/(3.36  +  273.15))]  .  10~3  =  3.76  x  10"4  N .  s/m2 


Tc  =  Critical  Temperature^/?)  =  753.95  °R 
TJ[° R)  =  49S.05  ° R 

j  =  1  -  TJ[R)ITc(R)  =  1  -  498.05/753.95  =  0.34 
p  -  581.77  +  984. 15/ /3  +  263.02/  +  279.99//2  +  17.94/ 


p  =  1522.7  kgjrn 


v  =  ^x/p  =  3.7605  x  10^/1522.72  =  2.47  x  10~7  m2/s 


/c  =  7.1x  10"2-{2.61x  10"4.  ry(0Q} 


ft  =  7.1  x  10"2  -  (2.61  x  10"4  .  3.36)  =  7.01  x  10"2  W\m  .  K 


Cp  =  400  +  1.65  .  Tf+  (1.51  x  10"3 .  Tf)  -  (6.68  x  10"7 .  TJ3) 
Cp  =  959MJjkg*K 
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a  =  kip  •  Cp  =  7.0224  x 


10 


-2 


1522.72-959.856 


=  4.80  x  10"8  m2ls 


-3/ 


/?  =  -  {AplAT)lp  -  1.0201 1  x  10"J(1//0 


pr  =  v/a  =  5.15 

E.     HEAT  FLUX  CALCULATION 

Using  Churchill  and  Chu  s  correlation  for  a  cylinder  in  natural  convection,  the  heat 
transfer  coefficient  from  one  non-boiling  end  can  be  calculated  as: 


h  = 


Do 


0.6  +  0.387< 


g  •  B  •  Do  •  0  •  tanh(m  •  Lu) 
v  •  a • Lu  •  m 

[l+(0.559//V)9/l6]8/27 


,1/6 


where 

m={(h*p)l(kcAc)}112 

and  h  was  computed  through  an  iterative  process  beginning  with  an  assumed  h  of 
190  W I m2  •  K.   The  resulting  h  and  m  were: 

A  =110.78  W\rn.K 

m  =  45.28 

Qf=  (h.p.kc*  Ac)]'2  . 0  .  tanh(m  .  Lu)  =  0.27  W 

F.     HEAT  FLUX  THROUGH  ACTIVE  BOILING  SURFACE 

Q  =  Qh-2.  Qf=  360.02  -  2(0.27)  =  359.47  W 


Ab  =  7z.Do*L  =  Tf  0.01582  . 0.2032  =  1.01  x  10~2  in 
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q  =  QjAb  =  359.47/1.01  x  10"2  =  35595  W\rn 


h  =  q"l®  =  35595/2.23  -  15955  W\rn  .  K 


The  following  results  were  produced  by  the  data  acquisition  and  reduction  program 
DRP72: 


q"  =  35590  W\rn 


h  =15969  Wlm2.K 


0  =  2.23°C 

The  calculations  were  exactly  the  same  for  both  tubes. 
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APPENDIX  B.     UNCERTAINTY  ANALYSIS 

For  comparison  purposes,  uncertainty  was  determined  using  the  same  methods 
(those  of  Kline  and  McClintock  [Ref.  18))  as  Sugiyama  in  single  tube  work  [Ref.l  Ap- 
pendix E].  Four  data  points  (two  for  the  smooth  tube  and  two  for  the  High  Flux  tube) 
were  selected  for  the  uncertainty  analysis.  These  points  were  selected  such  that  uncer- 
tainty could  be  determined  in  the  high  and  low  heat  flux  regions  for  each  tube.  The 
points  selected  were  data  sets  19  and  35  from  run  DAT0529D52  and  data  sets  1  and  13 
from  run  DAT0425D42.  The  following  is  a  sample  calculation  of  uncertainty  for  data 
set  19  of  run  DAT0529D52  (i.e.  low  heat  flux  setting  on  the  High  Flux  tube).  iMeasured 
and  calculated  parameters  were  obtained  as  in  Appendix  A,  sample  calculations.  All 
uncertainties  are  expressed  as  a  percentage  of  the  calculated  parameter.  Results  are  shown 
in  Table  5 

A.    UNCERTAINTY  IN  INPUT  POWER. 
Qk=VI 

Is  =  0.37  V        31  =±  0.025,4 

where  3  =  uncertainty  in  measurement  and  calculation 

Vs- 1.75  V        3V=±O.Q5V 

I  =  1.92  •  ft  -  0.7L4 
V  =25.  Vs  =  43.78  V 

SQhjQh  =  {(dVIVs)2  +  (Sills)2)112 


3Qh\Qh  =  ((0.05/ 1.75)2  +  (0.025/0.37)2) 


oQh/Qh  =  7.33 


2U/2 
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B.  UNCERTAINTY  IN  SURFACE  AREA 

Ab  =  n  •  Do  •  L 

Do  =  15.82mm       bDo  =  0.1mm 
L  =  203.20mm       SL  =  0. 1mm 
SAblAb  =  ((SDolDo)2  +  (<5L/L)2)1/2 

SAblAb  =  ((0.1/15.82)2  +  (0.1/203.2)2),/2 

5AbjAb  =  0.63 

C.  UNCERTAINTY  IN  WALL  SUPERHEAT 

A  7*  =  Two—  Tsat 

Tsat  =  22V  C       6Tsat  =  0.01° C 

Two  =  Tavg  -  Qhl(  ln(Z>o/ZH))/(2  .  n  .  L .  fcc)] 

7/t  =  thermocouple  readings 

T1  =  2.76°C         r2  =  2.6l°C 

73  =  2.67° C         r4(defective  thermocouple) 

75  =  2.74°C  76  =  2.81°C 
77  =  2.76°C  78  =  2.74°C 
Tavg  =  (27>i/7) 
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where  n  =  1  to  3,  5  to  8 
Tavg  =  2.13°  C 

S.D.  =  ((Z(7«  -  Tavgf)ln)U2  =  0.061°C 
where  S.D.  =  standard  deviation 

Compared  to  Tavg,  the  logarithmic  term  in  the  equation  for  Two  is  small  and  is 
neglected  for  the  uncertainty  analysis. 

Two  =  Tavg  =  2.73°C  STwo  =  S.D.  =  0.061°C 

Ar=0.37°C 

SATjAT  =  ((5Two/AT)2  +  (STsatlAT)2)1'2 

6ATIAT=  ((0.061/0.368)2  +  (0.01/0.368)2)1'2 

5AT/AT=\6.S 

D.     UNCERTAINTY  IN  HEAT  FLUX 

q'  =  (Qh-2.Qf)IAb 

Qh  =  3l.QW         6Qh  =  2.2SW 

Assuming  the  same  proportion  in  the  uncertainty  for  Qf  (losses  from  the  unheated  ends): 

Qf=l.6W  5Qf=0.\2W 

Qh-2»Qf=21.9W 

5qjq  =  {(SQhKQh  -  2  .  Qf))2  +  (2  .  Qf](Qh  -  2  .  Qf))2  +  (dAb/Ab)2}1'2 
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bq  lq  =  {(2.28/27.88)'  +  (2  . 0.12/27.88)'  +  (0.0063)'} 


2->  1/2 


5q  lq  =8.21 

E.      UNCERTAINTY  IN  BOILING  HEAT  TRANSFER  COEFFICIENT 

h  =  q'jAT 

Sh/h  =  {(Sq'/q)2  +  (<5A77A7)2}1/2 

t5/i//i={(0.0821)2  +  (0.168)2},/2 


<5/i//i=18.7 


Table  5.     UNCERTAINTY  ANALYSIS  FOR  FOUR  POINTS 


Parameters 

Smooth  tube 
2685  Wjm2 

Smooth  tube 
38440  Wlm* 

High  Flux  tube 
3070  W\m* 

High  Flux  tube 
35590  IVjm2 

SQhIQh  (%) 

7.01 

1.98 

7.33 

2.14 

SAb/Ab  (%) 

0.63 

0.63 

0.63 

0.63 

SATIAT(%) 

1.91 

2.52 

16.8 

8.08 

Sq'lq  (%) 

7.79 

2.18 

8.21 

2.23 

*A/A  (%) 

8.02 

3.33 

18.7 

9.40 

Uncertainties  listed  in  Table  5  show  that  the  main  source  of  uncertainty  is  in  the 
measurement  and  calculation  of  AT.  The  uncertainty  in  AT  is  probably  due  to  inaccu- 
racies introduced  during  the  manufacturing  process.  For  instance,  the  solder  pools  at- 
taching thermocouple  wires  to  the  interior  sleeve  may  have  impurities  (e.g.  small  air 
gaps)  which  in  close  proximity  to  the  thermocouple  junction  could  affect  the  local  heat 
resistance  and  thereby  the  temperature.  Eight  thermocouples  were  used  to  obtain  the 
wall  average  and  reduce  this  uncertainty.  This  also  points  out  that  further  improvements 
in  accuracy  must  be  made  in  this  area  first.  Graphical  displays  of  uncertainty  are  shown 
in  Figure  10  and  Figure   11. 


66 


APPENDIX  C.  REPRESENTATIVE  DATA  SET 
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Date 


G  Apr  1992 


NOTE:  Program  name  :  QRP72 
Oisk  number   »  30 
New  file  name:  OAT0406I42 
TC  is  defective  at  location   S 
No  defective  AUX  TCs  exist 
Tube  Number:    4 


6 

7 

9 

2.61 

2.52 

2. 66 

14 

IS 

16 

Oata  Set  Number  -    I   Bulk  Oil  7.  -   3.0 

TIME:      16:09:03 

TC  No:     I      2      3      4      S 

Temp  :  2.61    2.52   2.64   2.62  -99.99 

TC  No:     9      10     11      12     13 

Temp  :  16.87   27.84  22.11   26.61   10.17   27.90   18.51   23.24 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsump 

2.52  21.59   2.28    2.21     2.28   -1.70   -16.5 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 
.356   I.716E+03   6.I12E+02   19.325   5.093E+02   9.842E+03 


Oata  Set  Number  =■   2   Bulk  Oil  7.  -  0.0 
TIME:      16:I0:S1 

TC  No:     1       2      3      4      S      6      7      8 

Temp  :  2.71    2.72   2.73   2.70  -99.99   2. S3   2.68   2.73 
TC  No :     9      10     11      12     13     14     15     16 

Temp  :  16.87   27.36   22.10  26.60   10. IS  27.89   18.46   23.21 

Tua  ATua    Tliqd   Tltqd2   Tvapr  Psat   Tsump 

2.70  21.58   2.31    2.24    2.26  -1.69  -16.5 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 
.437   I.384E+03  6.048E+02   19.309   5.074E+02   9.798E+03 

Oata  Set  Number  -    3   Bulk  Oil  7.  -   0.0 
TIME:      16:15:44 

TCNo:1      2      3      4      5      6      7      8 
Temp  :    3.42    3.50   3.49   3.47  -99.99   3.40   3.40   3.52 
TCNo:     9      10     11      12      13     14     IS     IS 
Temp  :   16.86   27.86   22.07  26.63   10.08  27.94   18.50   23. 2S 
Tua    ATua    Tliqd   Tllqd2   Tvapr   Psat    Tsump 

3.45  21 .S3    2.28    2.21     2.24   -1.72   -16.4 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 

1.206   1.307E+03   1.577E+03   19.342   S.I00E+02   9.864E+03 

Data  Set  Number  -    4  Bulk  Oil  X    =■   0.0 
TIME:      16:16:21 

TC  No:     1       2.  3      4      S      6       7      8 

Temp  :    3.43   3.52  3.51    3.48  -99.99   3.40   3.40   3.S4 

TCNo:     9       10  II      12      13      14      15      16 

Temp  :   16.37   27.85  22.07   25.52   10.12   27.93   18.51   23.24 

Tua     ATua    Tliqd  Tliqd2   Tvapr   Psat    Tsump 

3.46  21.59   2.31  2.22    2.27   -1.69   -16.4 
Thetab   Htube      Qdp  Athetab  Ahtube     AuQdp 

1.189   1.324E+03   I.S74E+03   19.314   5.I06E+02   9.962E+03 


Oata  Set  Number  -    5   Bulk  Oil 
TIME:      16:22:00 


0.0 


TC  Mo: 

1 

2 

3 

4 

5 

6 

7 

8 

Temp  : 

4.  47 

4.S6 

4.64 

4.60 

-99.99 

4.45 

4.  14 

4. 55 

TC  Mo: 

9 

10 

1 1 

12 

13 

14 

IS 

16 
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Temp  :   15.92   27.79   21.99   25.55   10.08   27.86   18.44   23.18 
Tua     ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsump 
4.54   21.52    2.25    2.18    2.23   -1.74   -IB. 3 
Thetab   Htube      Odp         Athetab  Ahtube     AuQdp 
2.321   I.Z70E+03   2.948E+03   19.301   5.I06E+02   9.855E+03 

Oat  a  Set  Number  =■    S   Sulk  Oil  X    =      0.0 
TIME:      15:22:41 

TC  No:     1       2      3      4      5      5      7      8 

Temp  :  4.51    4.55    4.52    4.57  -99.99    4.45    4.44    4.64 
TCNo:     9       10      II      12      13      14      15      16 

Temp  :  16.81   27.78   21.98  26.55   10.06   27.86   18.45   23.17 

Tua  ATua    Tliqd    Tllqd2   Tvapr   Psat    Tsump 

4.54  21.52    2.29    2.19    2.23   -1.73   -16.2 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 

2.305  I.279E+03   2.948E+03   19.283   S.I16E+02   9.865E+03 

Oata  Set  Number  -   7  Sulk  Oil  X   -  0.0 
TIME:      16:27:34 

TCNo:l      2      3      4      5      6      7      8 
Temp  :    6.63   6.95   6.89   6.82-99.99   5.48   5.48   6.90 
TCNo:     9      10     11      12     13     14     15     16 
Temp  :   16.79   27.80  21.97  26.57   10.00   27.88   18.43   23.19 
Tua    ATua    Tliqd   TllqdZ   Tvapr   Psat   Tsump 
6.70  21. SI    2.27    2.19    2.20   -1.75   -16.2 
Thetab   Htube      Odp         Athetab  Ahtube     AuQdp 
4.484   1.269E+03  5.689E+03   19.296   S.113E+02   9.867E+03 

Oata  Set  Number  -   8  Bulk  Oil  X   -  0.0 
TIME:      16:28:36 

TC  No:     1      2      3      4      5      6      7      8 

Temp  :  6.58   6.95   6.99   6.81  -99.99   6.55   6.55   5.95 
TCNo:     9      10     II      12      13     14     15     15 

Temp  :  16.89   27.88   22.06   26.65   10.20   27.96   18.54   23.27 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsump 

6.72  21.61    2.30    2.26    2.32   -1.66  -16.1 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 

4.419  I.292E+03  5.709E+03   19.313   S.I31E+02   9.909E+03 

Oata  Set  Number  -   9  Bulk  Oil  X   -  0.0 
TIME:      16:30:19 

TCNo:l      2      3      4      S      5      7      8 
Temp  :    6.64   5.99   6.94   6.86  -99.99   6.52   5.50   6.97 
TCNo:     9      10     II      12      13     14     15     16 
Temp  :   16.39   27. 90-  22.08   26.57   10.19   27.99   18.55   23.30 
Tua    ATua    Tliqd    Tllqd2   Tvapr   Psat    Tsump 
6.77   21.63   2.36    2.28    2.33   -1.63   -16.1 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
4.443   I.285E+03  5.710E+03   19.304   5.I32E+02   9.906E+03 

Oata  Set  Number  =■   10   Sulk  Oil  %    -   0.0 
TIME:      16:35:47 

TC  No:     1       2      3      4      5      6      7      8 
Temp  :    8.57    9.15   9.03   8.95  -99.99   8.48   8.51    9.06 
TCNo:     9       10      11      12      13      14      15      16 

Temp  :  16.90   27.32   21.99   25..S9   10.03   27.90   18.44   23.21 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsumq 

8.77  21.53    2.27     2.20     2.25   -1.72   -15.9 

Thetab  Htube       Qdo  Athetab  Ahtube      AuQdp 

G.529   I.292E+03   9.431E+03   19.238   5.I35E+02   9.904E+03 
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Data  Set  Number  -   II   Bulk  Oil  %    *      0.0 

TIME:      16=37:31 

TC  No: 

Tenp 

TC  No: 

Teno 

Tua     ATwa    Tliqd    Tliqd2   Tvapr   Psat    Taump 
•8.81   21.56    2.28    2.22    2.27   -1.71   -15.9 
Thetab   Htube      Qdo         Athetab  Ahtube     AuQdp 

6.549   I.238E+03   8.433E+03   19.302   5.I4IE+02   9.924E+03 


1 

3 

4 

5 

5 

7 

8 

8 

G7 

9.15 

9.07 

8 

96 

-99 

99 

8.57 

8.54 

9.04 

9 

10 

1  1 

2 

3 

14 

15 

16 

16 

83 

27.85 

22.01 

25 

61 

10 

34 

27.93 

18.18 

23.24 

Oata  Set  Number  -   12  Bulk  Oil  X  -   0.0 

TIME:  16:46:52 

TC  No:  I       2      3  4  5      6      7      8 

Tenp  :  10.81   11.49  11.44  11.32  -99.99   10.67   10.70   11.45 

TCNo:  9      10     II  12  13     14     15     16 

Temp  :  16.85   27.92  22.33  26.57   10.02   28.00   18.49   23.28 

Tua  ATua    Tltqd   Tliqd2   Tvaor   Paat    Taump 


!8   -1.57 


•15.5 


II. 0S  21.59   2.32    2.26 
Thetab   Htube      Odp         Athetab  Ahtube     AuQdp 
8.771   I.3I4E+03   1.I52E+04   19.305   S.I52E+02   9.946E+03 


Data  Set  Number  -   13   Bulk  Oil  X  -   0.0 
TIME:      16:47:44 

TCNo:l      2      3      4      5      6      7      8 
Temp  :   10.76   11.52   11.44   11.21  -99.99   10.73   10.71   1 1 . 36 
TCNo:     9      10     1112      13     14     15     16 
Tenp  :   15.85   27.89  22.01   26.65   10.01   27.97   18.49   23.25 
Twa    ATwa    Tliqd   Tliqd2   Tvapr   Psat    Taump 
11.03  21.57   2.32    2.24    2.27   -1.58   -15.4 
Thetab  Htube      Qdp         nthetab  Ahtube     AuQdp 
8.759   I.318E+03   1.IS4E+04   19.296   5.166E+02   9.969E+03 

Data  Set  Number  -   14   8ulk  Oil  X  =■   0.0 
TIME:      I5:S7:55 

TCNo:1      2      3      4      5      6      7      8 
Tenp  :   12.48   13.36   13.25   13.10-99.99   12.29   12.30   13.19 
TCNo:     9      10     II      12      13     14     15     16 
Tenp  :   16.80   27.91   21.99  25.66    9.97   27.99   18.45   23.25 
Twa    ATwa    Tliqd   Tliqd2   Tvapr   Paat    Tauno 
12.77   21.56    2.23    2.18    2.18   -1.77  -14.9 
Thetab   Htube      Qdp         nthetab  Ahtube     AuQdp 
10.S76   1.332E+03   1.409E+04   19.366   S.1S8E+02   9.989E+03 

Oata  Set  Number  -   15   Bulk  Oil  X  -   0.0 
TIME:      16:58:31 

TC  No:     I       2      3      4       5      6      7      8 

Tenp  :  12.40   13.36   13.29   13.14-99.99   12.46   12.46   1J.3S 
TCNo:     9      10     11      12      13     14     15     16 

Temp  :  16.94   27.32   22.02   26.68   10.00   28.02   18.49   23.29 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Paat    Taump 

12.84  21.59   2.24    2.19    2.22   -1.74   -14.8 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 
10.619   1.330E+03   1.412E+04   19.369   5.171E+02   1.002E+04 

Oata  Set  Number  =■   16  Bulk  Oil  %    ■   0.3 

TIME:      17:05:00 

TC  No:     I       2  3       4       5       6       7       8 

Temp  :   14.01   15.25  15.14   14.72  -99.39   14.13   14.08   15.06 
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TCNo:     9       10      II      12      13      14      15      IS 

Tenp  :  IS. 84   27.94   22.04   2S.S9   10.02   29.02   19.49   23. 2B 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 

14.52  21.59   2.28    2.23    2.19   -1.74   -14. S 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 
12.300   I.3S5E+03   I.679E+04   19.370   5.I70E+02   1.00IE+04 

Data  Set  Number  =■   17   Bulk  Oil  7.    -   0.0 
TIME:      17:05:42 

TC  No:     I       2       3       4       5       S       7       8 

Tenp  :  14.12   15.39   15.28   14.77  -99.99   14.15   14.16   15.10 
TCNo:     9      10     11      12     13     14     15     IS 

Tenp  :  IS. 83   27.93   22.02   2S.S9    9.98   28.02   18.49   23.28 

Tua  ATua    Tltqd    Tliqd2   Tvapr   Psat    Tsunp 

14. SI  21.59   2.27    2.18    2.20   -1.75   -14.4 

..Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 

12.398   I.354E+03   I .S79E+04   I9.37S   5.I54E+02   9.986E+03 

Oata  Set  Nunber  -   18   Bulk  Oil  X  -  0.0 
TIME:      17:10:46 

TC  No:     I      2      3      4      5      S      7      8 

Tenp  :  15.64   IS. 91   16.80   16.36  -99.99   16.07   16.01   16.72 
TCNo:     9      10     II      12     13     14     15     16 

Tenp  :  18.68   27.63  21.81   26.40   9.92   27.71   18.31   23.03 

Tua  ATua    Tltqd   Tliqd2   Tvapr   Psat    Tsuno 

16.24  21.37   2.25    2.16    2.14  -1.80  -14.2  • 

Thetab  Htube      Qdp         nthetab  Ahtube     AuQdp 
14.067   I.406E+03   1.978E+04   19.198   S.147E+02   9.88IE+03 

Oata  Set  Nunber  -   19  Bulk  Oil  X   -  0.0 
TIME:      17:11:22 

TCNo:1       2      3       4      5      6      7      8 

Tenp  :  15.54   16.84   16.73   16.36  -99.99   16.06   15.96   16.80 
TC  No :     9      10     11      12      13     14     IS     1 6 

Tenp  :  15.68   27.64   21.80   26.41    9.94   27.72   18.32   23.04 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 

IS. 21  21.38   2.25    2.15    2.15   -1.80  -14.1 

Thetab  Htube      Qdp         nthetab  nhtube     AuQdp 
14.036   1.407E+03   I.975E+04   19.207   5.139E+02   9.870E+03 

Oata  Set  Nunber  -  20  Bulk  Oil  7.   -  0.0 
TIME:      17:16:58 

TCNo:l      2      3      4      5      6      7      8 

Tenp  :  17.40   18.39   18.23   17.64  -99.99   17.89   17.62   18.27 
TCNo:     9       10      II      12      13      14      15      16 

Temo  :  16.77   27.72   21.98   25.50   9.98   27.79   18.39   23.08 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 

17.78  21.45   2.32    2.25    2.20   -1.72   -13.9 

Thetab  Htube      Qdp         nthetab  Ahtube     AuQdp. 
15.539   1.51SE+03   2.355E+04   19.206   S.U8E+02   9.98SE+03 

Oata  Set  Nunber  -   21   Bulk  Oil  7.    -   0.0 
TIME:      17:17:40 

TC  No:     1       2       3       4       5       S      7      8 

Tenp  :  17.39   18.33   18.18   17.62  -99.99   17.92   17.64   18.24 
TCNo:     9       10      H      12      13      14      IS      16 

Tenp  :  16.77   27.74   21.91   25.52   10.02   27.82   18.42   23.11 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 

17.75  21.47    2.32    2.25     2.19   -1.73   -13.9 

Thetab  Htube       Odo         Athetab  Ahtube     AuQdp 
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15.51!   I.5Z2E+03   2.360E+04   19.23-1   5.  I59E+02   9.923E+03 

Data  Sat  Number    -   22   Bulk  Oil  X    -   0.0 
TIME:      17:23:15 

TC  No:     I   '     Z       3       4       5       6       7       8 

Temp  :  18.55   18.95   19.94   18.14  -99.99   19. SG   18.75   18.83 
TC  No:     9       10      II      12      13      14      IS      IS 

Temp  :  16.77   27.73   21.90   2S.50   10.07   27.81   18.40   23.11 

Tua  ATwa    Tliqd   Tllqd2   Tvapr   Psat   Tsump 

18. SS  21.47   2.28    2. 25    2.12   -1.77  -13.5 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 
IS. 455   1.725E+03   2.838E+04   19.274   S.I38E+02   9.903E+03 

Data  Set  Number  »   23   Bulk  Oil  X    -   0.0 
TIME:      17:23:57 

TCNo:l       2      3      4      5      S      7      8 
Tenp  :   18.50   18.93   18.88   18.11  -99.99   19. S3   18.72   18.81 
TCNo:     9      10     II      12     13     14     IS     IS 
Temp'  :   16.77   27.74   21.90  25.52   10.05   27.93   18.42   23.12 
Tua     ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsump 
18.63  21.48   2.28    2.22    2.12  -1.78  -13.5 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
16.442   I.729E+03   2.843E+04   19.291   5.12SE+02   9.889E+03 

Data  Set  Number  -  24  Bulk  Oil  7.  ■  0.0 
TIME:      17:29:40 

TC  No:     I      2      3      4      5      6      7      8 
Temp  :   19.09   19.38   19.33   18.42  -99.99  21.01   19.60   19.18 
TCNo:     9      10     11      12     13     14     IS     IS 
Temp  :   16.83   27.80  21.96   26.58   10.09  27.87   18.47  23.14 
Tua    ATua    Tliqd   Tliqd2   Tvapr   Psat   Tsump 

19.23  21.53    2.29    2.18    2.17   -1.76   -13.1 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
17.029   I.969E+03   3.353E+04   19.320  5.I22E+02   9.896E+03 

Data  Set  Number  -   25   Bulk  Oil  X    <•      0.0 
TIME:      17:30:27 

TCNo:l       2      3      4      5      6      7      8 
Temp  :   19.10   19.42   19.32   18.42-99.99   21.02   19.60   19.16 
TC  No :     9      10     II      12     13     14     IS     16 
Temp  :   16.84   27.81   21.97  25.60   10.11   27.89   18.48   23.18 
Tua    ATua    Tliqd   Tliqd2   Tvapr  Psat    Tsump 

19.24  21.54   2.32    2.21     2.19   -1.74   -13.1 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
17.010   I.968E+03   3.348E+04   19.517   5.I07E+02   9.86SE+03 

Oata  Set  Number  -   26   Bulk  Oil  X    -   0.0 
TIME:      17:35:53 

TC  No:     I       2       3       4       5       S       7       8 
Temp  :   19. S0   19.79   17.81   18.74  -99.99   22.75   20.47   19.48 
TCNo:     9       10      II      12      13      14      15      16 
Temp  :   IS. 81   27. 76   21.93   26. 54   10.06   27.83   18.44   23.13 
Tua     ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 
19.84   21.49    2.21     2.10    2.11   -1.84   -12.7 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdo 
17.705   2.449E+-03   4.335E+04   19.361   5.096E+02   9.866E+03. 


Oata  Set 

Number  »   27 

Bulk  Oi 

1  ". 

=•   0.3 

TIME: 

17:36:50 

TC  No: 

1       Z 

3 

1 

5 
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Temp  :   19.62   19.9!   19.82   19.75  -99.99   22. 7B   20.54   19.53 
TC  No:     9       10      II      12      13      14      15      IG 
Temp  :   IS. 37   27.30   21.98   26.58   10.19   27.88   18.51   23.18 
Tua     ATwa    Tliqd    TliqdZ   Tvapr   Psat    Tsunp 
19.97   21.55    2.33     2.19     2.29   -1.73   -12. S 
Thetab   Htube      Odp         Athetab  Ahtube     AuQdp 
17.639   2.4S6E+03   4.332E+04   19.326   5.II0E+02   9.875E+03 


Data  Set  Number  -   28   Bulk  OH  S  -   0.0 
TIME:      17:40:06 

TCNo:1      2      3      4      5      6      7      8 
Tenp  :   20.25   20.32   20.40   19.23-99.99   24.53   21.18   20.00 
TCNo:     9       10      II      12      13      14      15      16 
Tenp  :   16.89   27.83  21.99   26.60   10.17   27.91   18.53   23.22 
Tua     ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 
20.50   21.58    2.32    2.28    2.14   -1.75   -12.3 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
18.277  3.3I2E+03  5.054E+04   19.359   S.083E+02   9.839E+03 

Data  Set  Number  -  29  Bulk  Oil  %   -  0.0 
TIME:      17:40:48 

TCNo:l      2      3      4      5      6      7      8 
Temp  :   20.23   20.30  20.38   19.22-99.99  24.51   21.17   20.00 
TCNo:     9      10     II      12     13     14     IS     15 
Tenp  :   16.85.  27.74  21.93  2S.5I   10.13  27.82   18.47   23.15 
Twa    ATwa   Tltqd   Tliqd2   Tvapr   Psat    Tsunp 
20.48  21.51    2.33    2.25    2. IS  -1.74  -12.2 
Thetab   Htube      Odp         nthetab  Ahtube     AuQdp 
18.254  3.306E+03  S.034E+04   19.283  5.096E+02  9.82SE+03 

Oata  Set  Number  »  30  Bulk  Oil  %   -  0.0 
TIME:      17:41 :22 

TC  No:     I       2      3      4      5      6      7      8 
Tenp  :   20.23   20.31   20.38   19.22-99.99   24.51   21.17   20.00 
TCNo:     9      10     11      12     13     14     15     IS 
Tenp  :   16.86   27.77  21.95  25.55   10.14   27.85   18.50   23.16 
Tua     ATwa    Tliqd    Tliqd2   Tvapr   Psat    Tsunp 
20.48  '21.53   2.30    2.27    2.13  -I.7S  -12.2 
Thetab   Htube      Qdp         nthetab  Ahtube     AuQdp 
18.275   3.310E+03  6.049E+04   19.323   5.I00E+02   9.8S4E+03 
NOTE:  29  data  runs  uere  stored  in  file  OAT0406I42 


Date  :      6  Apr  1992 

NOTE:  Progran  name  :  0RP72 
Disk  number   -  00 
New  file  nane:  OAT0406O42 
TC  is  defective  at  location 
No  defective  AUX  TCs  exist 
Tube  Number:    4 
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TIME: 
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Temp 
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Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 

17.700  2.48IE+03   4.392E+04   19.279   S.110E+02   9.8S0E+03 

Oata  Set  Number  =    2   Bulk  OH  %    -   0.0 
TIME:      17:49:07 

TC  No:     I       2      3       4      5      5      7      8 

Temp  :  19.64   19.38   19.88   18.78  -99.99   22.85  20.52   19.56 
TC  No:    9      10     II     12     13     14     15     16 

Temp  :  16.79   27.66  21.87  26.45   10.11   27.75   18.42   23.07 

Twa  ATwa    Tliqd   TllqdZ   Tvapr   Paat    Taump 

19.90  21.45   2.32    2.28    2.14  -1.75  -11.7 

Thetab  Htube      Qdp        Athetab  Ahtube     AuQdp 

17.685  2.476E+03  4.378E+04   1 9. 231   5.I12E+02   9.830E+03 

Data  Set  Number  -   3  Bulk  Oil  X    -  0.0 
TIME:      17:54:28 

TC  No:     I      2      3      4      5      6      7      8 

Temp  :  18.55   19.04   18.96   18.18  -99.99   19.76   18.77   18.87 
TCNo:    9'     10     II     12     13     14     15     16 

Temp  :  16.70  27.60  21.79  26.38   9.99  27.58   18.33  23.09 

Tua  ATwa   Tliqd   Tliqd2  Tvapr  Paat   Tsump 

18.70  21.38   2.23    2.19    2.09  -1.82  -11. S 

Thetab  Htube      Qdo        Athetab  Ahtube     AuQdp 

16.552  I.75SE+03  2.905E+04  19.225  S.I21E+02  9.84SE+03 

Oata  Sat  Number  ■   4  Bulk  OH  1   -  0.0 
TIME:     17:55:10 

TC  No:     I      2      3      4      5      6      7      8 

Temp  :  18.51   19.05   18.96   18.17-99.99   19.76   18.85   18,89 
TCNo:    9      10     II     12     13     14     IS     16 

Temp  :  16.71   27.63  21.80  26.41    9.99  27.71   19.35  23.12 

Tua  ATwa    Tliqd   Tliqd2   Tvapr   Paat    Tsump 

18.73  21.40   2.26    2.20    2.12   -1.79  -11.5 

Thetab  Htube      Qdp        Athetab  Ahtube     AuOdp 

16.551  1.756E+03  2.906E+04   19.222  5.I22E+02  9.84SE+03 

Oata  Set  Number  -   5  Bulk  Oil  %   -  0.0 
TIME:      18:01:43 

TCNo:1      2      3      4      5      6      7      8 

Temp  :  17.47   18.37   18.30   17.72-99.99   17.94   17.61   18.35 
TCNo:    9      10     II     12     13     14     15     16 

Temp  :  16.70  27.60  21.78  26.39   9.96   27.67   18.32  23.07 

Tua  ATua    Tliqd   Tliqd2   Tvapr   Paat    Taump 

17.82  21.37   2.23    2.18    2.09  -1.83  -11.4 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 

15.578  I.555E+03   2.439E+04   19.225  5.I40E+02   9.882E+03 

Oata  Set  Number  -   6   Bulk  Oil  7.  -  0.0 
TIME:      18:02:25 

TC  No:     I       2      3      4      5      6      7      8 

Temp  :  17.49   18.30   18.25   17.75  -99.99   17.96   17. S2   18.23 
TCNo:     9       10     11      12      13     14     15     16 

Temp  :  16.75   27.71   21.86   26.50   9.99   27.79   18.39   23.18 

Tua  ATua    Tliqd   Tliqd2   Tvapr   Paat    Taump 

17.80  21.45   2.25    2.22    2.10   -1.80  -11.4 

Thetab  Htube      Qdo         Athetab  Ahtube     AuQdp 

15.627  1.S62E+03   2.442E-t04   19.295   S.I53E+02   9.938E+03 

Oata  Set  Nunber  »    7   Bulk  Oil  %  -   0.3 
TIME:      18:07:14 
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TCNo:l  :  3       4       5      S       7      8 

Temp  :  IS. 29  IS. 40   IS. 31   15.94  -99.99   15.69   IS. 53   16.35 

TC  No:  9  10      II      12      13      14      15      16 

Temp  :  16.74  27.72   21.94   26.50    9.89   27.80   18.38   23.19 

Tua  ATwa  Tliqd    Tliqd2   Tvapr   Psat    Tsump 

15.92  21.44  2.22    2.13    2.14   -1.81   -11.4 

Thetab  Htube  Odp        Athetab  Ahtube     AuQdp 

13.656  1.402E+03   I.9I5E+04   19.281   5.I53E+02   9.937E+03 


Data  Sat  Number  -   8   Bulk  Oil  7.  -   0.0 
TIME:      18:07:50 

TCNo:t      2      3      4      S      S      7      8 
Temp  :   15.33   16.51   16.43   15.99  -99.99   15.59   15.55   16.43 
TC  No:     9      10     II      12      13     14     15     16 
Tenp  :   16.75   27.73   21.97   28.50   9.94   27.31   18.39   23.20 
Twa    ATwa    Tliqd   Tltqd2   Tvapr   Psat    Tsump 
15.86   21.46   2.23    2.16    2.14  -1.80  -11.4 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
13.690   I.397E+03   1.9I2E+04   19.290  5.I38E+02   9.912E+03 

Data  Set  Number  -   9  Bulk  Oil  Z  -  0.0 
TIME:      18:12:30 

TCNo:l       2      3      4      5      6      7      8 
Temp  :   12.40   13.42   13.33   13.03  -99.99   12.45   12.33   13.24 
TCNo:    9      10     II     12     13     14     IS     IS 
Temp  :   17.23  28.71   22.91   27.44   10.37  28.81   18.97  24.02 
Twa    ATwa    Tliqd   Tliqd2  Tvapr  Psat   Tsump 
12.80  22.24   2.28    2.23    2.22  -1.73  -11.4 
Thetab  Htube      Qdp        Athetab  Ahtube     AuQdp 
10.554   I.337E+03   I.4I2E+04  20.002  S.198E+02   1.040E+04 

Oata  Set  Number  -   10  Bulk  Oil  7.  -  0.0 
TIME:      18:13:45 

TC  No:     I      2      3      4      S      6      7      8 

Temp  :  12.22   13.34   13.25   12.95  -99.99   12.41   12.41   13.25 
TCNo:     9      10     II      12      13     14     15     IS 

Temp  :  16.82   27.94  22.25  25. 62   10.12   27.93   18.48   23.31 

Twa  ATwa    Tliqd   Tliqd2   Tvapr  Psat    Tsump 

12.75  21.60   2.27    2.18    2.20  -1.75  -11.4 

Thetab  Htube      Odp        Athetab  Ahtube     AuQdp 
10.536   I.340E+03   1.412E+04   19.392  5.143E+02   9.973E+03 


Oata  Set  Number  -   II   Bulk  Oil  7.  »  0.0 
TIME:      18:14:39 

TC  No:     I       2      3      4      5      S      7      8 
Temp  :   12.33   13.31   13.25   12.95  -99.99   12.39   12.36   13.24 
TCNo:     9      10     II      12      13     14     IS     16 
Temp  :   16.97   27.94  22.33  26.72   10.10  28.04   18.53  23.37 
Tua     ATwa    Tliqd    Tliqd2   Tvapr   Psat    Tsump 
12.75   21. S7   2.23    2.20    2.19   -1.76   -11.4 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
10.547   I.340E+03   I.4I3E+04   19.469  5.I6IE+02   1.00SE+04 


Oata  Set  Number  ■   I! 
TIME:      18:15:27 


TC  No 

Temp 
TC  Mo 
Temp 
Tua 


I 


Bulk  Oil  7. 


3 


0.0 


4      5  S      7      8 

12.38   13.35   13.22   13.00  -99.99  12.49  12.49  13.19 

9      10     11      12      '3  14     IS     IS 

16. S3   27.45   21.92   26.21    9.39  27.50  18. IS  22.96 


A Tua    Tliqd 


Tl iqdl 


Tvapr   Psat 


Tsump 
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12.79   21.27    2.29    2.24    2.23   -1.72   -It.  4 
Thetab   Htube      Odp         Athetab  Ahtube     AuQdp 
10.545   I.334E+03   I.406E+04   19.029   5.0S0E+02   9.S28E+03 

Data  Set  Number  »   13   Bulk  Oil  X  -   0.0 
TIME:      18:20:06 

TC  No:     I       2      3      4      5      6      7      8 

Temp  :  9.58   10.38   10.34   10.11  -99.99    9.S5    9.S5   10.23 
TC  No:     9       10      II      12      13      14      15      IS 

Temp  :  15.51   27.11   21.70  25.94   9.92   27.19   18.05   22.71 

Tua  ATwa    Tliqd    Tliqd2   Tvapr   Psat    Tsump 

9.93  21.08    2.25    2.19    2.21   -1.75  -M.S 

Thetab  Htube      Odp         Athetab  Ahtube     AuQdp 
7.718   I.297E+03   I.00IE+04   I8.3S2   5.090E+02   9.60IE+03 

Data  Set  Number  »   14   Bulk  Oil  X  -   0 . ? 
TIME:      18:20:40 

TC  No:     I       2      3      4      5      5      7      8 

Temp  :  9.S4   10.30   10.21    9.9S  -99.99   9.S0   9.57   10.20 
TC  No:     9       10      M      12      13      14      15      IG 

Tenp  :  IS. 49   27.08   21 .68   25.90   9.91   27. IS   18.04   22. S9 

Tua  ATwa    Tliqd   Tliqd2   Tvapr   Psat    Tsump 

9.87  21.06    2.22    2.17    2.16   -1.79   -11.5 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 
7. 685   I.303E+03   I.001E+04   18.874  S.074E+02   9.S77E+03 

Oat  a  Set  Number  -   15  Sulk  Oil  X  -  0.0 
TIME:      18:25:06 

TC  No:     1      2      3      4      5      6      7      8 

Tenp  :  S.06   6.30   5.25   6. IS  -99.99   5.00  _5.99   5.27 
TC  No:     9      10     II      12     13     14     15     IS 

Temp  :  16.55   27.13   21.72   25.96    9.99   27.21   18.11   22.75 

Tua  ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsump 

S.I2  21.11    2.24    2.20    2.23  -1.74  -11. S 

Thetab  Htube      Qdp         Athetab  Ahtube     AuOdp 
3.893   I.2S7E+03   4.93IE+03   18.889   5.062E+02   9.SSIE+03 

Oata  Set  Number  -   16   Bulk  Oil  X  -  0.0 
TIME:      18:25:41 

TCNo:l       2      3      4      5      6      7      8 
Temp  :    S.02   6.37   5.33   5.22  -99.99   5.98   5.99   5.32 
TCNo:     9      10     II      12     13     14     15     IS 
Temp  :   15.58   27.16   21.75   25.99   10.01   27.24   18.15   22.77 
Tua     ATua    Tliqd    Tliqd2   Tvapr   Psat    Tsump 
5.15   21.14    2.28    2.23    2.27   -1.69  -11.6 
Thetab   Htube      Odp         Athetab  Ahtube     AuOdp 
3.881   I.27IE+03   4.933E+03   13.876   S.069E+02   9.5S7E+03 

Oata  Set  Number  -   17   Bulk  Oil  7.  »   0.0 
TIME:      18:30:07 


TC  No 

Temp 
TC  No 
Temp 
Tua 


1       2      3      4      5      6      7  8 

4.46  4. 55  4.53   4.56  -99.99   4.42    4.43  4.54 

9      10     II      12     13     14     IS  16 

16.75  27.50  22.00  26.31   10.14   27.59   18.34  23.05 

ATua  Tliqd    Tliqd2   Tvapr   Psat    Tsump 


4.53   21.39    2.30    2.24    2.27   -1.59   -11.7 
Thetab   Htube       Odp  Athetab  Ahtube      AuQdp 

2.255   1.25SE+03   2.3S9E+03   19.121   S.090E+02   9.732E*03 


Data  Set  Number 


18   Bulk  Oil 


0.0 
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TIME:      18:30:52 

TC  No:     '       Z      3      4      5      S      7      9 

Temp  :  4.49    4.65    4. 54    4.S8  -99.99    4.44    4.44    4.54 
TC  No:     9       10      II      12      13      14      15      16 

Temp  :  16.75   27.48   21.98   25.30   10.11   27.57   18.33   23. 0S 

Tua  ATua    Tliqd   Tliqd2   Tvapr  Paat    Taump 

4.54  21.38   2.30    2.24    2.28   -1.68   -11.7 

Thetab  Htube      Odp         Athetab  Ahtube     AuQdp 

2.262  1.259E+03  2.847E+03   19.104  5.067E+02   9.681E+03 

Oata  Set  Number  -   19   8ulk  Oil  X    -  0.0 
TIME:      18:35:00 

TC  No:     I      2      3      4      5      6      7      8 

Temp  :  3.39   3.46   3.46   3.42  -99.99   3.33   3.34   3.46 
TCNo:    9      10     II     12     13     14     IS     15 

Temp  :  16.68  27.38  21.91   26.19   10.12   27.45   18.27  22.93 

Tua  ATua    Tllqd   Tltqd2   Tvapr   Paat    Taump 

3.40  21.30   2.25    2.20    2.22  -1.74  -11.8 

Thetab  Htube      Odp         Athetab  Ahtube     AuQdp 

1.176  1.306E+03   1.S36E+03   19.079  5.060E+02   9.5S4E+03 

Oata  Set  Number  -  20  8ulk  Oil  X   -  0.0 
TIME:     18:35:42 

TC  No:    1      2      3      4      S      6      7      8 
Temp  :   3.42   3.48   3.49   3.46  -99.99   3.37   3.38   3. 50 
TCNo:    9      10     II     12     13     14     IS     16 
Temp  :   16.70  27.38  21.91   26.19   10.09  27.46   18.27  22.95 
Tua    ATua   Tllqd   Tliqd2   Tvapr  Paat   Taump 
3.43  21.30   2.30    2.23    2.27   -1.69  -11.8 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
1.165   I.3I9E+03   I.S37E+03   19.034  5.083E+02   9.676E+03 

Data  Set  Number  -  21   Bulk  Oil  X    -   0.0 

TIME:     18:40:25 

TC  No:     I      2      3      4      5 

Temp  :  2.68   2.68   2.69   2.57  -99.99 

TC  No :     9      10     11    .12      13 

Temp  :  16.66   27.28  21.83  26.10   10.16 

Tua  ATua    Tliqd   Tllqd2   Tvapr  Paat    Taump 

2.57  21.25   2,23    2.21    2.23  -1.73  -11.9 

Thetab  Htube      Qdp         Athetab  Ahtube     AuQdp 

.444  I.404E+03  6.232E+02   19.020  5.044E+02   9.593E+03 

Oata  Set  Number  -   22   Bulk  Oil  X    -   0.0 
TIME:      18:41:07 

TC  No:     I       2       3       4       5       5       7      8 
Temp  :    2.71    2.71    2.73   2.70  -99.99   2.57   2. 57   2.73 
TCNo:     9      10     II      12      13     14     15     16 
Temp  :   16.57   27.30  21.84   26.11   10.07  27.38   18.22   22.90 
Tua    ATua    Tliqd    Tliqd2   Tvapr   Paat    Taump 
2.70  21.25   2.29    2.22    2.25   -1.70  -11.9 
Thetab   Htube      Qdp         Athetab  Ahtube     AuQdp 
.439   I.4ISE+03  S.216E+02   18.385  S.031E+02   9.S5IE+03 
NOTE:  22  data  runa  uer-  stored  in  file  OAT0406O4Z 


6 

7 

8 

2.64 

2.65 

2.71 

14 

IS 

16 

7.37 

18.22 

22.88 
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APPENDIX  D.      PROGRAM  SETUP72 

Program  SETUP72  is  listed  on  the  following  pages.    The  program  enables  the  user 
to: 

1.  Monitor  coolant  sump  temperature. 

2.  Monitor  liquid  pool  average  temperature. 

3.  Monitor  all  thermocouple  channel  output  temperatures. 

4.  Monitor  voltage,  current,  and  resulting  power  supplied  to  the  upper  tube  heater 
(main  heater)  as  well  as  the  resistance  of  the  heater. 

5.  Monitor  the  voltage,  current,  and  resulting  power  supplied  to  the  lower  tube  heater 
(auxiliary  heater)  as  well  as  the  resistance  of  the  heater. 

Program  SETUP72  is  written  in  Hewlett-Packard  Basic  5.0  for  the  HP  9300  series 
computer. 
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PROGRAM:  SETUP 
n£TC;   anc(jCT  3  igaj 

PROGRAMMER:  LT  DEAN  3UGIYAMA 
MGOIFIEO  SY  LANNIE  LAKE  JAM  22 
COM  /Cc/  CC?) 


199: 


DATA  0. 10095091  , 

.S6I92E+I3 
DATA  3.34079E+U 
READ  C! •  ! 
ON  KEY  1,15  SOTO 
PRINTER  IS  1 
PRINT 
PRINT 

PRINT  USING  "4X 
PRINT  USING  "5X 
PRINT  USING  *SX 
PRINT  USING  "6X 

•PRINT  USING  "8X 
PRINT  USING  "SX 
PRINT  USING  "SX 
PRINT  USING  "4X 
9EEP 

INPUT  I do 

IF  Ido.S  THEN  Ida-5 
IF  Ido-0  THEN  59 
IF  I  do- 1  THEN  155 

*IF  Ido-2  THEN  1.73 
IF  Ido-3  THEN  195 
IF  Ido-4  THEN  135 


5727.34353  .-757345.9235  ,79925535.9!  ,-9247486599  ,S.97599E-L 


""SELECT  OPTION""" 
"••0-MONITOR  SUMP""" 
""1-MGNITOR  LIQUIO""" 
" " 2-CHECK  THERMOCOUPLES ' 
""3-CHECK  MAIN  HEATER""' 
""4-CHECK  AUX  HEATERS"** 
""5-EXIT  PROGRAM""" 
""NOTE:  KEY  1  -  ESCAPE" 


IF  Ido-5  THEN 
PRINT 


>3I 


PRINT 

PRINT  "SUMP  TEMPERATURE  OEG  C  " 

PRINT 

OUTPUT  709;  "AR  AF 1  9  AL19  L'RS" 

OUTPUT  799; "AS  SA" 

Sum-0 

FOR  J- I  TO  5 

ENTER  709 ;E 

Sum"»Sum+E 

NEXT  J 

Eave-Sum/5 

Tsn(j"FNTvsv(  Eave  ! 

PRINT  USING  *4X  ,MDO.OO";T9r?0 

BEEP 

PRINT 

WAIT  5 

SOTO  50 

PRINT 

PRINT  "LIQUID  TEMPERATURE  OEG  C 

PRINT 

OUTPUT  799; "AR  AF 1 6  AL 1 7  UR5" 

Sun»0 

FOR  I 'I  TO  2 

OUTPUT  799; "AS  SA" 

ENTER  "09 ;E 
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ice  me;<t  i 

!SS  Eave-Sun/2 

!£7  ranp-FNTv3v<Eavs! 

igg  pprnjT  ijctmc  "4;/  moq  .00"  :  Tsnp 

!S9  SEEP 

!  79  MA  IT  S 

17!  GOTO  !S5 

!72l 

!73  PRINT 

175  PRINT  -CHANNEL      TEMPERATURE  OEG  C" 

!77  OUTPUT  709; "AR  AF00  AL!9  VRS" 

179  FOR  1-1  TO  29 

!79  OUTPUT  709: "AS  5ft" 

190  Sun-0 

191  FOR  J- I  TO  5 
1  a?  ENTER  709 ;E 

193  Sum-Sun+E 

194  NEXT  J 

195  Eavs-Sun/5 

I9S  Tenp-FNTv3v<E3va> 

197  PRINT  TAB(3):I:TAB( 15>:Tanp 

199  NEXT  I 

1 99  9EEP 

!90  WAIT  S 

19t  SOTO  173 

194! 

195  PRINT 

195  OUTPUT  739; "AR  AF20  AL22  VRS" 

197  FOR  I-l  TO  3 

199  OUTPUT  709; "AS  SA" 

1 99  Su*-0 

200  FOR  J- I  TO  S 
20!  ENTER  799 :£ 

202  Sum-Sun+E 

203  NEXT  J 

204  IF  I-l  THEN  Volt-Sum/S 

205  IF  1-2  ANO  Ido-3  THEN 

209  PRINT  "MAKE  SURE  VOLTAGE  90X  IS  SET  TO  MAIN  HEATERS" 

210  Amp-Sun/S 

21 1  ENO  IF 

212  IF  1-3  ANO  Ido-4  THEN 

215  PRINT  "MAKE  SURE  VOLTAGE  BOX  IS  SET  TO  AUX  HEATERS" 

217  Anp-Sun/5 

219  ENO  IF 

219  NEXT  I 

220  Anp-ABS(Amp»l .9192  ) 

221  Vol t-A8S( Volt«25 > 

222  Power-Volt »Anp 

223  Reaiatancs-Valt/Anp 

221  PRINT 
225  9EEP 

22S  PRINT  "VOLTAGE*'.'!  CURRENKA!  RES  ISTENCE*  ohns  !  PQUER(U)" 

227  PRINT 

229  PRINT  USING  ' ! X  ,5< M0000.00  ,4X  )"  ;'/ol t  ,ftwp  .Resiatence .Power 

229  UAIT  5 

230  GOTO  195 
23!  9EEP 

222  PRINT 

233  PRINT  "THAT'S  aLL  cOLKS'" 

231  ENO 


80 


235  OEF  FNTvsv<y> 

235  COM  .'rc.'  r !.  7  > 

237  T-C(0> 

239  FOR  I"!  TO  7 

239  T-T+CU  !•<.'"  I 

240  NEXT    I 

24!  T-T+9.S2G897E-2iT» (3.761  1 99E-3-T»5.0SS92S9E-S  ) 

242  RETURN   T 

250  FNEND 
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APPENDIX  E.     PROGRAM  DRP72 

The  data  acquisition  and  reduction  program  DRP72  is  listed  on  the  following  pages. 
Program  DRP72  is  written  in  Hewlett-Packard  Basic  5.0  for  the  HP  9300  series  com- 
puter. 
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193 

193 
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213 

229 

239 
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390 
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399 
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413 
429 
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459 
470 
499 
490 
533 
510 
523 
530 
540 
550 
559 
5-0 

t^  Q  (71 


I     |7TI   C     njWC  •     noo-'-' 

'     DATC:  MARrH    c       !  oa~' 

1  REVISED  VERSION  GF  0RP71  FOR  T'JQ  TUBE  OAT* 

i  REVISED  9/  Lsnms  Laka 

COM  /I do/  Ida 

PRINTER  IS  1 

CALL  Sal  set 

INPUT  "WANT  TO  SELECT  ANOTHER  OPTION  C 1 «Y  .9-N  )?"  .Isei 

IF  I  sal-!  THEM  GOTO  70 

BEEP 

BEEP 

PRINTER  IS  1 

PRINT  '•DATA  COLLECTION/REPROCESSING  COMPLETED" 

END 

SUB  Mam 

COM  /I  do/  I  do 

COM  /Co,'  C(7)  .leal 

COM  /Mil/  02  ,Di  .Do  ,L  ,Lu  ,Kcu 

OIM  Emf<29)  ,T(20)  ,D1a<  13)  ,02a< 13)  ,0ia( 13? ,0oa< !3>,La(  13) ,Lua<  13) .Kcuaf  13! 
9).fnS(4)C  IS3 

OATA  0. 13995991  ,25727.94359.-757345.9295.79925595.31 

DATA  -924748SS99,S.97S99E-H 1  .-2. SSI 92E-H  3 .3. 94979E-H 4 

REAO  C(») 
!  DATA  "Smooth1 ."High  Flux"  .  "Tharmoexel-E" . "Thermoexel-HE* 

DATA  Smooth, High  Flux  ,Turbo-B  .High  Flux  Mod,Turbo-9  Mod 

READ  TnS(«  ) 

PRINTER  IS  701 

SEEP 

IF  I  do -4  THEN  PRINTER  IS  1 

IF  Idp-4  THEN  GOTO  3933 
'  INPUT  "ENTER  MONTH.  DATE  ANO  TIME  ( MM : 00 :HH:MM: SS ) "  ,Dat aS 
I  OUTPUT  709; "TO"; Oat  a* 
'  OUTPUT  799; "TO" 
1  ENTER  799;0ateS 

PRINT 
1  PRINT  "  Month.  Oata  and  Time  :";0ataS 

PRINT  ■  Data  : "  , DATES* TIMEDATE > 

PRINT 

PRINT  USING  "1 9X  ,"*MQTE:  Program  name  :  DRP72""" 

BEEP 

INPUT  "ENTER  OISK  NUMBER" .On 

PRINT  USING  " ISX  , " "Disk  numbar   -  "",ZZ";0n 

BEEP 

INPUT  "ENTER  INPUT  MODE  ( 3-3354A  ,  1 -FILE  )"  , Im 

SEEP 

INPUT  "1  0R  2  TUBE  OFERATION  'ENTER  1  QR  2)",Hwmntu- 

SEEP 

INPUT  "SELECT  HEATING  MODE  O-ELEC;  ! -WATER  )"  ,Ihm 

SEEP 

INPUT  "ENTER  THERMOCOUPLE  TYPE  ( 0-NEU  .  1 =0LD > "  .  leal 

IF  Im-9  THEM 

9EEP 

INPUT  "GIVE  A  NAME  FOR  THE  RAU  OATA  FILE"  .D2_r"  i  leS 

PRINT  USING  "ISX /"New  File  nans:  " "  ,  I  4A"  :02l?i  laS 

5i;al-23 

CREATE  90AT  02_f i ieS ,3i ;s 1 

ASSIGN  9F:  l-Z  TQ    0Z_r"ilaS 
i 

1  DUMMY  FILE  UNTIL  Mrun  KNOWN 
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C32  0!  ?:  1 3-"  ' DUMMY " 

522  CREATE  SCAT  01  fiisS  3i;el 

512  ASSIGN  OFilal  TO  D1_PllsS 

522  OUTPUT  ?F : 1 e  !  ; Oa t sS 

533  IF  Ihm-0  THEN 

542  SEEP 

550  INPUT  'ENTER  NUMBER  OP  DEFECTIVE  TC3  I 2-OEFAULT )"  ,Idtc 

553  IP  Idtc»3  THEN 

572  Lite! -2 

590  Ldtc2-a 

530  PRINT  USING  "!SX,"*No  defect  ive  TCs  exist""" 

703  END  IP 

7!0  IF  Idtc-I  THEN 

723  SEEP 

720  INPUT  "ENTER  DEFECTIVE  TC  LOCATION  !  I  -9 >" .Ldtc I 

740  PRINT  USING  "ISX,""TC  is  defective  at  location  "",00";Ldtc! 

750  Ldtc2-0 

7S0  ENO  IF 

773  IF  Idtc-2  THEN 

790  9EEP 

730  INPUT  "ENTER  DEFECTIVE  TC  LOCATIONS  ( I -9 >"  .Ldtc!  ,Ldtc2 

900  PRINT  USING  "ISX,""TC  are  defective  at  locations  " "  .00  .IX  .00" ;Ldtcl  ,Ldtc2 

910  ENO  IF 

929  IF  Idtc>2  THEN 

930  SEEP 

940  PRINTER  IS  I 

950  SEEP 

9S0  PRINT  "INVALID  ENTRY" 

970  PRINTER  IS  701 

990  GOTO  540 

990  ENO  IF 

900  ENO  IF 

913  OUTPUT  9Filel ;Ldtcl  ,Ldtc2 

920  IF  Hunntu-I  THEN  SOTO  ! ! 90 

930  INPUT  "ENTER  NUMBER  OF  OEFECTIVE  AUX  TC3  ( 0-OEFAULT  )" .Aidtc 

940  IF  Aidtc-0  THEN 

950  Aldtc!-0 

950  Aldtc2-0 

973  PRINT  USING  "lSX,""No  defective  AUX  TCs  exist"*" 

990  ENO  IF 

990  IF  Aidtc-I  THEN 

1000  SEEP 

1010  INPUT  "ENTER  DEFECTIVE  TC  LOCATION  (  3-1 S  P .Aldtc 1 

1023  PRINT  USING  "!SX,""TC  is  defective  3t    location  ""  .00" ; Aldtc ! 

1033  Aldtc2-0 

!343  ENO  IF 

1050  IF  Aidtc-2  THEN 

I2S3  SEEP  •  • 

1272  INPUT  "ENTER  OEFECTIVE  TC  LOCATIONS  ' 9- ! S  ! "  , Aldtc I  ,Aldtc2 

1090  PRINT  USING  "!GX.""TC  are  defective  at  locations  ""  .00  .4X .00" ; Aldtc !  .Aldtc 

l 290  ENO  IF 

! 100  IF  Aidtc. 2  THEM 

MIA  9EEP 

! !20  PRINTER  IS  I 

I  !  33  SEEP 

I  i  xd  PRINT  "INUALIO  ENTRY" 

! '53  PPINTER  IS  "31 

!  i  eg  ^OTO  540 

1  ! "3  END  IF 


84 


!  3G  OUTPUT  'IF  ;  la  !  ;  ft  I  d  t  c  !  ftldt--2 

i an i  In* i  opt  i cn 

222  EL3E 
219  SEEP 

223  INPUT  "SI'JE  THE  NAME  OF  THE  EXISTING  OATft  FILE"  ,02_f i  1=5 
239  PRINT  USING  " ! SX , ""Old  File  nane:  " " , ! 4A" : 02_f i I sS 

210  ftSSIGN  9File2  TO  D2_filaS 

259  ENTER  8File2:Nrun 

253  ENTER  3Fi le2 ;0old3 

270  PRINT  USING  "  1  SX  , "  "This  data  set  taken  on  :  " "  ,  IW"  sDoldS 

290  ENTER  JFileZ  sLdte!  ,Ldts2  .Altdcl  ,AHdc2 

290  IF  Ldtcl>3  OR  Ldtc2:3  THEN 

300  PRINT  USING  " I SX , - "Thernccoup las  were  defective  at  locations: ""  ,2(30  ,4X >" ; 

Ldtc!  ,Ldtc2 

319  ENO  IF 

323  IF  Hunntu-I  THEN  GOTO  1 353 

339  IF  Aldtcl'3  OR  Aldtc2:0  THEN 

340  PRINT  USING  " I SX , " "AUX  Thermocouples  were  defective  at  locat  ions : " "  ,2( 30  ,4 
>";Aldtc!  ,Aldtc2 

350  ENO  IF 

350  ENTER  ?File2;Itt 

370  ENO  IF 

390  Idtc-0 

399  .IF  Ldtc!>0  THEN  [dts-Idtc+1 

400  IF  Ldtc2>0  THEN  Idtc-Idtc+I 
419  IF  Hwnntu-I  THEN  GOTO  1440 
423  IF  Aldtcl>0  THEN  Aidta-Aldtc+1 
439  IF  Aldtc2>0  THEN  Aidtc-Atdtc+t 
449>  IF  Im-0  ANO  Ihn-1  THEN  !595 
450  SEEP 

469  INPUT  "UANT  TO  CREATE  A  PLOT  FILE?  ( 0-N  ,  I -Y >"  .Iplot 

470  IF  Iplot-I  THEN 
490  9EEP 

490  INPUT  "GIVE  NAME  FOR  PLOT  FILE-  ,? J i leS 

500  CREATE  90AT  P_fila«.4 

513  ASSIGN  OPLot  TO  P_Pile3 

523  ENO  IF 

533  IF  Ihm-I  THEN 

540  9EEP 

550  INPUT  "UANT  TO  CREATE  Uo  FILE?  ( 0-N  ,  I -Y  )"  ,Iuf 

550  IF  luf-l  THEN  . 

570  BEEP 

590  INPUT  "ENTER  Uo  FILE  NAME'.UfileS 

593  CREftTE  BOAT  Uf ile3,4 

500  ASSIGN  WJflla  TO  UfileS 

510  ENO  IF 

523  BEEP 

533  INPUT  "UANT  TO  CREATE  Re  FILE7  < 0-N  ,  1 -Y  )"  ,  Ira 

S40  IF  Irs-!  THEN 

550  BEEP 

SS0  'INPUT  "ENTER  Re  FILE  NAME"  ,Ref ilaS 

673  CREftTE  BOAT  Refile3,!3 

530  ftSSIGN  9ReftLs  TO  Refile* 

590  ENO  IF 

730  ENO  IF 

7!g  ootntco  jc  I 

723  IF  Im-0  THEM 

730  BEEP 

".19  PRINT  USING  "4X  ,"  "Select  tube  number 

750  IF  Ihn-9  THEN 
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I7S3 

I  772 

i  733 

j  799 

i  ggg 

1910 

1920 

1930 

1940 

!9S0 

19S0 

1970 

1999 

1990 

1900 

1910 

1920 

1920 

1940 

1950 

!9S0 

1970 

1990 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2050 

2079 

20901 

2090" 

2100' 

21  10i 

2120 

2130 

2140 

2150 

2160' 

21701 

2190 

2190 

Z200 

22101 

2220' 

2230 

2210 

2250 

2250I 

2279  I 

2290 

2230 

2300 

2310! 

2329 ' 

2330 


PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

ELSE 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING 

END  IF 

INPUT  lit 

OUTPUT  9File1 iltt 

EMO  IF 

PRINTER  !S  701 

IF  Itt<10  THEN  PRINT  USING  "lSX,""Tube  Number: 

IF  Iti>9  THEN  PRINT  USING  "16X,"*Tube  Number: 

IF  Ihm-I  THEN  PRINT  USING  "lSX,*"Tube  Type: 

BEEP 

INPUT  "ENTER  OUTPUT  VERSION  ( 0-LONG  .  1 -SHORT  ,2-NONE 

9EEP 

INPUT    'SELECT    (0-LIQ  ,  l-UAP  ,2-<  LIQ+'JftP>/2  >"  ,Ilqv 


••cy 

"  "9 

3nocth  4  inch  Ref 

"SX 

.. .. , 

Smooth  i    inch  Cu  (Prsas.'Sl ide)  " 

"S:< 

.. ..  2 

Soft  Solder  4  inch  Cu 

"SX 

"  "  7 

Soft  Solder  i     inch  HIGH  FLUX""" 

"SX 

.. .,  4 

Uteland  Hard  9  inch""" 

•sx 

•"5 

HIGH  FLUX  9  inch""" 

"SX 

»*s 

GE'JA-K  40  Fins/ in 

"SX 

•■  "T 

SE'JA-K  25  Fins/in""" 

"SX 

"  "9 

GE'Jm-T  19  Fins/in""" 

"SX 

-  -a 

GE'JA-T  OR  SE'JA-TY  2S  Fins/in 

"SX 

""!0 

THERMQEXCEL-E""" 

"SX 

""11 

THERMOEXCEL-HE""" 

"SX 

""12 

TURBO-8""- 

"SX 

'"13 

SEUA-K  19  Ftna/in""" 

"SX 

••"0 

Smooth  tube 

"sx 

" "  1 

High  Flux""" 

"SX 

■•  <•  ^ 

Turbo-9"" " 

"SX 

""3 

High  Flux  Mod""" 

"SX 

""4 

Turbo-9  Mod""" 

"-  .D- : Itt 

""  ,00" : Itt 

""  ,l5A";TnS< Itt  ) 


"  ,Iov 


OIMENSIONS  FO  TESTED  TUBES 

ELECTRIC  HEATED  MOOE 

01»0lameter  at  thermocouple  positions 

DATA  .01 1  I  125,. 01  I  1 125,. 01  I  I  125  ,  .0129540  ,  .01 2446  ,  .01 29540  ,  .0I009S5 

DATA  .9I009S5,.01 157  ,  .01157 , ,01 157 . .01157 . .01  1 57,. 01 00965 

READ  01a( ♦> 

01-01a( Itt) 

02-0iameter  of  test  section  to  the  base  of  fins 

OATA  .01 5975,. 01 5975,. 01 5975,. 01 5924  ,  .015975 , .015924 ,.01270 

OATA  . 0 1 27  , . 0 1 39 , . 0 1 39 , . 0 1 39 . . 0 1  39 , . 0 1 39 , . 0 1  27 

READ  02a< •  ) 

Oi»Inside  diameter  of  unenhanced  ends 

OATA'  .01  27,.  01  27,.  01  27,.  01  32  ,.01  27,.  01  32  ,.01  I  M2S..0I  I  1  125 

OATA  .0119, .0119, .0119, .0119, .0119,. 91MI  25 

READ  Oia( •) 

Do-Outside  diameter  of  unenhanced  ends 

OATA  .015975  ,.01 59^5  ,  .015975  .  .015921  ,  .015975  .  .31 5924  ,,31270  ,  .01270 

OATA  .01331  ,.91331  ,.91331  ,.91331  ,.0153. .9127 

REAO  0oa( • » 

L=Lsngth  of  enhanced  surface 

OATA  .!01S,.I01S,.!3!S..!0IS1 .2032 , .2932 , .2932 , .2922 . .2932 , .2932 , .291 
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23=31 

23S3'  Lu-Length  of  unershanced  surface  at  the  ends 

2379  DATA  .325-1  . .325a , .3254 , .3254 , .0752 , .0752 , .3752 , .0752 , .3752 , .0752 , .0752  ,  .07 

£2  ,.3752  ..3752 

2390  REAO  Lua<  *  ) 

23931 

2130'  Kcu-Ther-mal    Conductivity    of    tubs 

24  10  OATA   399  ,344  ,344  ,45  ,344  ,45  ,344  ,344  ,399  ,399  ,399  ,399,399  ,344 

2423  REAO  Kcua( •  ) 

2430  IF    Ihei-1     THEN 

2440' 

Z4S31  Oata  statements  far  uatsr  heating  mode 

2450' 

2473  DATA  3.3! 5975 ,0.31 5375  ,3 .31 69 ,3.3! 39 ,3.01 59  ,3  ,0  ,0  ,9  ,0 

2490  REAO  02a<  • ) 

2490  OATA  0. 0127,3. 3127 ,3.0145 ,0.0127,0.0145 ,0 ,9,3,3,0 

2500  READ  Oia< ♦ > 

2513  OATA  0.015975, 0.015375, 0.3159, 3. 015875, 9. 9159.9,0,9, 0,9 

2520  REAO  0oa< ♦  ) 

2530  OATA  0.3048.0.3049,0.3048.0.3048,0.3043,0.0,9,9,9 

2S40  REAO  Lai*) 

2550  OATA  9.0254.0.0254,0.0254,9.0254,0.0254.0,0.9,0.9 

25S0  REAO  Lua<  »  ) 

2570  OATA  398, 45. 399. 4S. 399  ,0.9, 0.9.0 

2530  REAO  Kcua( •> 

2590  ENO  IF 

2500  Q2-02a(It*> 

2510  0l-0la(ltt! 

2520  Oc-Ooa(Iti) 

2530  L-La(Itt) 

2540  Lu-Lua(Itt) 

25=0  Kcu-Kcua< Itt  ) 

2550  Xn-.g 

2579  Fr-. 3 

2530  IF  Itt-0  THEN  Cf«l.7SE+9 

2530  IF  ltt>0  THEN  Cf-3.7037E+I0 

2790  A-PI»(0o"2-0i'-2  >/4 

2710  P-P I 'Do 

2720  IF  Ihm-I  THEM 

2730  9EEP 

2740  INPUT  "TUBE  INITIATION  MOOE.  (  1 -HOT  UATER  ,2-STEAli  ,3-COLO  WATER >".  It iei 

2750  IF  Itim-I  THEM  PRINT  USING  " I SX  . " " Tube  Initiate:  Hot  Uater""" 

2750  IF  Ittn-2  THEN  PRINT  USING  " 1 SX  , " "Tube  Initiate:  Steam""" 

2770  IF  Itlei-3  THEN  PRINT  USING  '-ISX,""Tube  Initiate:  Cold  Water'"" 

2790  INPUT  "TEMP /'.'EL  MOOE:  (  0-T-CONST  .U-OEC  ;  I  -T-OEC  .U-CONST;  2-T-INC  .U-CONST  )"  , 

I  tv 

2790  IF  Itv-0  THEN  PRINT  USING  " 1 SX  , " " Tsnp/l'el  Mode:  Cons tant /Oecreas ing 

2900  IF  Itv-1  THEN  PRINT  USING  " 1SX  , " "Tewp/Vel  Mode:  Decreasing/Constant""" 

2910  IF  Itv-2  THEN  PRINT  USING  " tSX  , " "Temo/Vei  Mode:  Increasing/Constant""" 

2923  INPUT  "WANT  TO  RUN  WILSON  PLOT?  <  1 -Y  ,0-N  ) "  .  lui  1 

2930  IF  Ihrn-I  ANO  lui  1-0  THEN 

2940  IF  Itt-0  THEM  C1-.332 

2953  IF  Itt- I  OR  Itt-3  THEN  Ci-.3S9 

29S0  IF  Itt-2  OR  Itt-4  THEN  Ci-.3S2 

29~3  9EEP 

2993  INPUT  "ENTER  CI  '.  QEF  :  'JH=. 032  .HF-. 053  , TB-.3S2  > "  ,Ci 

2993  PRINT  USING  " 1 SX  , " "3 iader-Tata  

2900  PRINT  USING  "1SX,""   Constant    -  ",Z.40";Ci 

2913  ENO  IF 

2923  ENO  IF 
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Z9ZG  IF  [hri-!  AND  E.-i-!  ANQ  Iwil*l  THEN 

Z9--12  IF  Iii"i2  THEN  C:.-.'33~ 

Z959  IF  Itt-I  OR  Itt-3  THEM  Ci-.353 

Z9S0  IF  Iti»2  OP  Itt-4  THEN  C:».2EZ 

Z970  ASSIGN  9FileZ  TO  • 

2990  CALL  U:Ison(Cf ,Ct  ! 

Z990  ASSIGN  9Fil-Z  TQ  02_fiIeS 

3300  ENTER  9Fila2;Nrun .QoldS  .Ldtel  ,Ldtc2 , It  t 

3010  EMO  IF 

30Z0  Nsub-0 

ZOZQ)  IF  Idp-4  THEM  Ihm-I 

3040  IF  Ihn«!  THEM  Nsub-9 

3050  Ntc-S 

30G0  IF  Ihn-0  THEN  Ntc-29 

3070  J-! 

3090  S*«9 

3093  Sy-0 

3100  Sxs-9 

3110  Sxy-0 

3129  Rspeat:  I 

3! 30  IF'lm-0  THEN 

3140  Otld-2.22 

31S0  Ido-2 

3150  ON  KEY  1.15  RECOVER  3120 

3170  PRINTER  IS  1 

3190  PRINT  USING  *4X, ""SELECT  OPTION"* 

3190  PRINT  USING  "6X ." "9-TAKE  DATA""" 

3200  IF  Ih«-0  THEN  PRINT  USING  "SX,""I-SET  HEAT  FLUX""" 

3219  IF  Ihn-1  THEN  PRINT  USING  "SX.""1-SET  UATER  FLOW  RATE' 

3223  PRINT  USING  "SX,""2«SET  Tsat""" 

3223  PRINT  USING  "SX,""3-SET  AUX  HEAT  FLUX""" 

3240  PRINT  USING  "4X  .""NOTE:  KEY  I  -  ESCAPE""" 

3253  BEEP 

3250  INPUT  Ido 

3270  IF    IdC>3   THEM    Idc-3 

3290  IF  Ido-0  THEN  5290 

32901 

33001  LOOP  TO  SET  HEAT  FLUX  OR  FLOWMETER  SETTING 

3310  IF  Ido-1  THEN 

3320  IF  Ihm-0  THEN 

3330  OUTPUT  733s "AR  AF20  AL21  UR5" 

3340  BEEP 

3350  INPUT  "ENTER  DESIRED  Qdp"  .Dado 

33B0  PRINT  USING  "4X ," "DESIRED  Odo   ACTUAL  Qdp""" 

3370  Err- 1000 

3390  FOR  I-l  TO  2 

3390  OUTPUT  709; "AS  3A" 

3400  Sun-0 

34  10  FOR  J  i- 1  TO  5 

34Z2  ENTER  709:E 

3439  SuM-Sum+E 

3440  NEXT  Ji 

3450  IF  I-l  THEN  Uolt-Sun/S 

3450  IF    I»Z    THEN   ^cm<z\ir./  5 

3470  NEXT    I 

3490  ftnp-A8S(A«p»l .9192 5 

3490  Vol  t-A8S<  Uoi v.  *Z5  ! 

3590  Aqdp-'.'elt  •A«p/<  PI*02»L  ! 

3c  i  q  re    ioo  Agdc-OqdD  '    Err    rHE?! 

35Z0  IF    Acdc • ~"d™    7HEM 
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3530  BEEP  4039  ,.2 

3540  9EEP  4333  .2 

3550  SEEP  4300,. 2 

3550  ELSE 

3570  SEE?  353  .2 

3590  SEEP  250,. 2 

3599  SEEP  250,. 2 

3530  ENO  IF 

3£!9  PRINT  USING  "4X ,MZ . 30E ,2X ,MZ .30E" :Oqdo  ,Aqdp 

3S20  WAIT  2 

3539  GOTO  3390 

3540  ELSE 
3550  SEEP 

35S0  PRINT  USING  "4X .MZ.30E  ,2X ,MZ.30E" ;Dqdp  .Aqdp 

35^9  Err- 500 

3S90  • WAIT  2 

3590  GOTO  3390 

3700  EMO  IF 

37!0  ELSE 

3729  SEEP 

3730  INPUT  -ENTER  FLOWMETER  SETTING"  .Fins 
3740  GOTO  3190 

3750  EMO  IF 

3750  END  IF 

3779! 

3790!  LOOP  TO  SET  Taat 

3790  IF  Ido-2  THEM 

3903  IF  Ikdt-I  THEM  3850 

38 1 0  BEEP 

3820  INPUT  "ENTER  OESIREO  Tsat-.Otld 

3830"  PRINT  USING  "4X.""  OTaat   ATsat    Rats     Tv     Rats""" 

3940  Ikdt-I 

3950  Oldl-0 

39S0  OId2-0 

3970  Nn-I 

3990  Nrs-Nn  HOO  !S 

3890  Mn-Nn+t 

3900  IF  Nra-1  THEN 

3910  IF  Ihn-0  THEN  PRINT  USING  "4X,""   Tsat       Tldl      Tld2      Tv    "~Tsump 

3923  IF  Ihn-1  THEN  PRINT  USING  "AX,*"   Tsat    Tldl     Tld2     Tv    Tsui-ip   Tirtle 
t    Tpile   Tout*"" 

3939  END  IF 

3940  IF  Ihi-i-0  THEN  OUTPUT  709;  "AR  AF!S  ALI9  VRS" 
3950  IF  Ihn-I  THEN  OUTPUT  709; "AR  AF0  ALS  VRS" 
3950  FOR  I-!  TO  5 

3970  IF  Ihm-0  ANO  I>4  THEN  4240 

3990  Sun-0 

3999  OUTPUT  709; "AS  SA" 

4000  FOR  Ji-I  TO  20 
40!3  ENTER  ""09;Eliq 
4029  Sum-Surt+Eliq 

4039  NEXT  Js 

4040  Sliq-Sun/29 
4050  Tld-eNTvav(Elrq ) 
4350  IF    I-l    THEM    TLdl-Tld 
4079  IF    1-2    THEN    Tld2=Tid 
4090  [F    1-3    THEM    T.—  T  Id 
4090  IF    [=4    THEN    TsLin3  =  rId 
4130  IF    1-5    THEM    Tmlst-Tld 
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4!  10  IF  1-5  THEN  Tcut  =  rld 

4 ! 22  NEXT  I 

4130  IF  Ihm-1  THEM 

1143  OUTPUT  709; "AR  AF00  AL03  '.'PS " 

l!53  OUTPUT  709 t "AS  SA" 

4  ISO  Su«-0 

4170  FOR  Kk-1  TO  20 

4  190  ENTER  709:5 

4  190  Sun-Suoi+E 

4 200  MEXT  Kk 

4210  Eoif(?>-ABS!  Sum/23! 

4220  Tpila-Emf(7>/  3.9SE-1 

1230  EMO  IF 

4240  Atld-CTldl-^TidZ  >♦.= 

1250  IF  ABS<Atld-Otld>>.2  THEM 

42S0  IF  Atld>Qild  THEN 

4270  SEEP  4000,. 2 

4290  BEEP  4000,. 2 

4290  9EEP  4000,. 2 

4200  ELSE 

4310  BEEP  250,. 2 

4320  BEEP  250  ,.2 

4330  BEEP  250  ..2 

4340  ENO  IF 

4350  Errl-Atld-Oldl 

43E0  Oldl-Atid 

4370  Err2-Tv-Old2 

4390  01d2-Tv 

4390  IF  TldlMOfl.  THEN  4440 

4400  IF  Ihm-0  THEN  PRINT  USING  *« ,5(M00Q.D0 ,2X !" ;Ot Id ,Tid«  ,Tld2  ,Tv .Taump 

1410  IF  I hn- 1  AMD  ldo=0  THEN  PRINT  USING  "4X ,7< MOO.OO  ,2X >" :Ot Id ,Tid! ,Tld2 .Tv ,Ta 
ump.Tinlat  .Tpila 

4420  IF  Ihm-I  AND  Ido-4  THEM  PRINT  USING  " 4X ,5(  MOO. 00 ,2X ) ,3< M30.00 ,2X  )' ;0t Id  ,T1 
d!  ,Tld2 ,Tv .Tsunc , Tin  I  at  , Tpila. Tout 

4430  WAIT  2 

4440  SOTO  3990 

4450  ELSE 

44G0  IF  ABS(Atld-0tld».l  THEM 

4470  IF  Atld>Otld  THEN 

4490  BEEP  3000,. 2 

4490  9EEP  3000.. 2 

4500  ELSE 

4510  9EEP  900.. 2 

4520  SEEP  900.. 2 

4530  ENO  IF 

4540  Errl-Atld-Oldl 

4550  Oldl-Atld 

4550  Er-r2-Ty-Qld2 

4570  Qld2-Tv 

1590  IF  Ihn-0  THEM  PRINT  USING  "4X ,S< MOOD. 00 ,2X ?" :0t Id ,Tld!  ,Tld2  .Tv  .Tsunp 

4590  IF  Ihm-I  THEM  PRINT  USING  *4X  ,S(MDD.OO  ,2X  )  ,3'.M3D.Q0  ,  IX  >"  sOt  Id ,  Tldl  ,Tld2  .Tv 
, Tauno  , Ttnlat  ,  To  i Is  .Taut 

4S32  'JAIT  2 

4G10  GOTO  3930 

1S20  ELSE 

tG"0  SEEP 

1S40  Errl-Atld-Oldl 

4550  Oldl-Atld 

15E0  "Err2-Tv-Old2 

1G~0  01d2-Tv 
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4630 
4S90 
T"i  1 

4~03 
4712 
4723 

4730 

4712 

4*53 

4750! 

1773 

1730 

4790 

4300 

49!0 

4823 

4930 

1843 

4350 

48S3 

1370 

4893 

4990 

4900 

4913 

4923 

4330 

4343 

4953 

43S0 

4973 

4993 

4990 

5333 

5313 

5320 

5030 

5040 

5050 

50S0 

5070 

5090 

5090 

5100 

51  10 

5120 

5!  30 

sua 

5150 

5IS0 

5!  70 

5190 

5!  93 

5230 

52!3' 

5222 

5223 

5240 

5253 

5290' 


IF  [hn-0  THEM  PRINT  USING  "4X ,5( MOOD .00  ,2X >' 
tc  Ihri*!  THEM  PRINT  USING  "4X  9(M0D.DD  2.XV 
s.Tcut 
WAIT  2 
GOTO  3993 
END  IF 
END  IF 
END  IF 


LOOP  TO  SET  A'JX  HEAT  FLUX 

IF  Ido-3  THEN 

IF  Ihm-0  THEM 

DPIMT  *  SET  'JOLT  90X  TO  A'JX " 

OUTPUT  709:  "AR  AF20  AL22  L'RS" 

9EEP 

INPUT  "ENTER  DESIRED  AuQdp* .Duxqdp 

PRINT  USING  "2X  .""OESIREO  AuxOdp   ACTUAL  AuxQdp" 

Err»l 000 

FOR  I- I  TO  3 

O.UTPUT  709;  "AS  SA" 

Sum«0 

FOR  J  I- 1  TO  5 

ENTER  709 (E 

Sum-Sun+E 

NEXT  Ji 

IF  I-l  THEN  Uolt-Sum/S 

IF  1-3  THEN  Amp-Sun/S 

NEXT  I 

Anp»A9S(Artp»l  .9192  ) 

Volt-A9S(Uolt*2S) 

Auxqdp-Volt*A.-ip.'!PI«02*L  ) 

IF  A9S( Auxqdp-Ouxqdp  >xErr  THEN 

IF  Auxqdp>0uxqdp  THEM 

9EEP  4000,. 2 

9EEP  4000,. 2 

BEEP  4000,. 2 

ELSE 

9EEP  250,. 2 

9EEP  2S0..2 

9EEP  250  .2 

ENO  IF 

PRINT  USING  "4X  ,MZ.30E,2X  .MZ.30E" sOuxqdp .Auxqdp 

WAIT  2 

GOTO  4850 

ELSE 

BEEP 

PRINT  USING  "IX  .MZ.30E  ,2X  .MZ.30E"  ; Ouxqdp  .Au.-.qdp 

Err-520 

'JAIT  2 

GOTO  4850 

ENO  IF 

GOTO  3190 

ENO  IF 

ENO  IF 

EPPOR  TRAP  FOR  Ida  OUT  OF  90UN0S 

IF  Ids.-3  THEN 

QCCp 

GOTO  ~ ! 92 
ENO  IF 


;Otld  Tld!  TId2  Tv  T'unp 
Dtid.Tld!  ,Tld2 ,Tv ,Tsunp  .Tinlst 
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9Z"3'  TAKE  DATA  IP  ln=0  LOOP 

5Z30  IF  I  k  a  I  =- 1  THEN  53Z3 

5Z90  9EEP 

=  333  INPUT  "ENTER  9ULK  OIL  X"  ,Sop 

53 ! 2  Ikel-I 

53Z9  IF  Ihn-3  THEM  OUTPUT  739; "AR  AF29  AL ! 9  UR5" 

5330  IF  Inn"!  THEM  OUTPUT  739; "AR  AF3  AL5  VR5" 

5343  IF  lhn-9  THEN  Ntc«Z3 

5350  FOR  I-l  TO  Ntc 

53S0  OUTPUT  709; "AS  SA" 

5370  Sun-3 

5390  FOR  Ji-I  TO  Z3 

5393  ENTER  739 ;E 

5400  Suci-Sun+E 

54!0  IF  I«(l7-Nsub>  OR  I-(I9-Nsub)  THEN  Et(Jt-l)-E 

S4Z3  NEXT  Ji 

5433  Kdl-0 

5440  IF  I-(!7-N3ub>  OR  I-'.  I  8-Nsub  )  THEN 

5450  Eave-Sun/Z0 

S4S3  Sum-0. 

5470  FOR  Jk-0  TO  19 

5433  !F  ftBS(EtUk)-EaveX5.0E-6  THEN 

5490  Sum-Sum+Et( Jk > 

5500  ELSE 

55!0  Kdl-Kdl+I 

S5Z3  ENO  IF 

5S30  NEXT  Jk 

5540  IF  I-(17-N9ub!  OR  I-(I9-Nsub!  THEN  PRINT  USING  "4X.""Kdl  -  ".OO'iKdl 

5550  IF  KdIM0  THEN 

5550  SEEP 

5573  SEEP 

5590  PRINT  USING  "4X,""Too  much  scattering  in  data  -  repeat  data  set 

5533  GOTO  3173 

5S00  ENO  IF 

55 10  ENO  IF 

5SZ3  Enf(I>«Sum/(20-Kdl) 

55 30  NEXT  I 

SS40  IF  Ihm-I  THEN 

SS50  OUTPUT  739; "AR  AF30  AL00  VRS" 

SSS0  OUTPUT  709; 'AS  SA" 

5573  Sum-0 

5680  FOR  Kk-t  TO  Z0 

5590  ENTER  709 ;E 

5700  Sum-Sum+E 

5713"  NEXT  Kk 

57Z3  Enf(7)-ASS(Su(n)/Z0 

5730  ENO  IF 

5713  IF  Ihn-0  THEN 

5750  Coun-0. 

57S3  OUTPUT  739; "AR  AFZ3  ALZZ  URS" 

57-3  FOR  I-l  TO  3 

5793  OUTPUT  709: "AS  SA" 

5790  Sun-0 

5300  FOR  Ji-I  TO  5 

5310  ENTER  739 ;E 

53Z3  Sun-Sum+E 

5330  NEXT  J i 

5349  IF  Coun-0.  THEM 

gacij  re    t,|     THEM    Ur"Sun/5 

=  3G9  IF    [=>:    THEM    Ir-Sum/5 
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C2~3  ELSE 

5393  IF  I=!  THEM  Avr*Su."t/5 

5923  IF  1-3  THEN  Air*Sun/S 

5933  END  IF 

59! 3  NEXT  I 

5923  IF    Hsiififitu1"  I     THEN    GOTO    53!  3 

5933  IF  Csun-3  THEM 

cgjg  pj;rfjT    -^utct   *jq\_j    gnv    jq    aijv  ■• 

5953  END    IF 

S9S0  IF  Coun-I  THEN  SOTO  5303 

5973  INPUT  -TAKE  AUX  REAOINGSt ! -YES  )'" ,Ccon 

5990  Csun-Caun+Ccon 

5993  GOTO  5770 

5003  ENQ  IF 

5313  ELSE 

5020  IF  Ihn-3  THEN  ENTER  9Fila2 ;Bop .ToldS ,Enf ( » > ,Ur  ,Ir ,Avr ,fti 

5030  IF  Ihm«l  THEN  ENTER  3Fi ls2 ; 9oo  .To IdS  ,Enf ( •  )  .Fna 

5040  END  IF 

S0S0! 

S060I  CONVERT  snf  S  TO  TEMP  , 'JOLT  .CURRENT 

5070  Tua-0 

5020  Atua-0 

5090  FOR  I-!  TO  Ntc 

SI 30  IF  Idtc.-O  THEM 

S1!0  IF  I-Ldtcl  OR  I-Ldtc2  THEN 

5129  T(!)— 99.39 

SI  30  SOTO  S303 

SU3  ENO  IF 

SI  S3  ENO  IF 

SIS0  IF  Humntu-t  THEN  SOTO  S230 

SI70  IF  Aldtc>0  THEN 

SI90  IF  I-Aldtc!  OR  I-Aldtc2  THEN 

S190  T(I>— 99.99 

5200  GOTO  S300 

52 10  ENO  IF 

6223  ENO  IF 

5230  IF    Itt<T4    AND    Ihn-0    THEN 

62-10  IF    HI   ANO    I<9   THEN 

6250  T<  I)— 99.99 

S2S0  GOTO  5300 

5270  ENO  IF 

5290  ENO  IF 

5290  T( I)-FMTvsv(Emf( I  )  ) 

5300  NEXT  I 

5310  IF  I  *  *  -:  4  THEN 

5323  FOR  1-1  TO  a 

5333  IF  I-Ldtcl  OR  I-Ldtc2  THEN 

5340  Tua-Tua 

5350  ELSE 

5353  Twa-Tws+T!!) 

63~0  ENO  IF 

5393  NEXT  ! 

5390  Twa-Twa/! 4-Idtc  ! 

5-100  ELSE 

S4!3  IF    [hm-l     THEN    5530 

S<123  FOR    I-l     TO    9 

5 i 13  [F  I-1  dtc!  OR  I-LdtcZ  THEM 

54J0  r'j3-rja 

5JS3  ELSE 

S4G3  Tua-Tuia  +  T(  I  ! 
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Si~3 

SJ9G 

5-133 

5=33 

=  513 

5520 

=533 

5510 

S553 

5550 

5573 

5530 

5593 

5500 

5513 

5523 

6550 

5640 

5653 

6550 

5573 

5590 

6593 

S700 

5713 

5728 

5730 

5740 

6750 

S7S0 

5773 

5790 

5793 

5900 

S9!3 

5923 

6933 

5940 

6950 

5960' 

69701 

5993 

5990 

5903 

S9!3 

5920 

5930 

5940 

S953 

5950 

5970 

5990 

5393 

"000 

"310 

7323 

"333 ' 

-Q401 

"3=0 


END  !F 

ME  XT  I 

Tw-Twa/«9-Idts ! 

re  Hunntu"!  THEN  GOTO  5530 

FOR  I»9  TO  IS 

rp    I-Aldtc'    OR    IaAldtcZ    THEN 

At'ja"Atwa 

ELSE 

Atua-Atwa+'Tf  I  ) 

END    IF 

NEXT    I 

Atu«Atua/(9-A;dt=  ! 

ENO    IF 

Tld-r! !7-Msub ) 

Tld2»T(  19-Msub  ! 

Tida»< Hd+Tld2  >•  .5 

Tv-T( 19-Maub  ) 

IF  It*  '.3  ANO  Ihm-3  THEN 

TId2  — 99.99 

Tv-(T(  I0)  +  T(  !  I  )  )/2 

ENO  IF 

Tsuwc-T(20-N3ub ) 

IF  Ihm-0  THEN  5720 

Tinlst-T( !3-Naub> 

Tout«n  14-Naub  ! 

IF  I.hw-0  THEN 

Anp-ABSC  lr*\  .9192) 

Uolt-ft8S(Ur)»2S 

Q-'Jol  t  »Anp 

IF  Huwntu-!  THEN  GOTO  5900 

Auanp-A9S< A:r»! .9192  J 

Auvolt-A9S(Avr !»25 

Auq»Auvo 1 1  *Auano 

ENO  IF 

IF  Itt-3  AND  Ihpi-0  THEN 

Kcu-PNKsu( Tu ! 

ELSE 

Kcu-Kcua< Itt ) 

ENO  IF 

FOURIER  CONDUCTION  EQUATION  WITH  CONTACT  RESISTANCE  NEGLECTED 

IF  Ihm-0  THEN  Tu-Tw-Q»LOG( 02/0 !  )/ ( 2*P! »Kcu»L ) 

IF  Hurnntu-!  THEN  GOTO  5913 

IF  Ihin-0  THEN  Aty-Atw-Auq»LQG<  02/0 1  )/ (  2 *PI  »Kcu»L  ) 

IF  Hqv-0  THEN  Tsat-Tida 

IF  Ilqv»l  THEN  Ts3*-Tv 

IF  Ilqv-2  THEN  Taat-< Tlda+Tv )».S 

IF  Ihw-I  THEN 

Tavg-Tinlst 

Grad-37.39S3J-.  !04399»Tavg 

Tdno-A8S(Emf(7  >  >*l  ,E+S/<  l0»Srad  ) 

Tavgc-Tinl9t-Tdrap».S 

IF    A9S( Tavg-Tavge J: .3!    THEN 

Tavg-' Tavg+Tavgc >».S 

SOTO    5353 

ENO    IF 

COtlP'JTE    'JATE?    DDOPCDT!c<; 
re     ru,n=i     ruc\| 

Ku"FMKu<  Tavg • 
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^073  Muwa-FMHuw:  Tavg ! 

""090  Cpw"FNCsw(  Tjv  ! 

"•090  Pr-j-FNPru<  Tavg.1 

7! 00  Phsu=PMRh3u( Tavg ) 

7! !0  Tui-Tavg 

7 !  23  l 

~!33'  Csnput-  MOOT 

7! 13  Md3t»3.3SS7E-3-l-Fms*' 3.5 I 95SE-3-cHi •' 9 . 3233SE-S-Fns»< I .23S99E-7-F«i3*4 . 31 99" 

E- ! 3  )  )  ! 

7153'  Mdot-Mdot»( I .33E5-Tinlet»« ! .9eG44E-3-Ttnlst *S.252E-5  !  >/1 .0037 

7!S3  Kdi»3 

7! 73  Q-Mdot ♦Cpu'Tdroc 

7190  l.-itd-Tdrop/LOG'.  (  Tiniet-Taat  >/(  Tmlet-Tdrop-Taat  )  ! 

7190  Uo"Q/(PI»Oo»L»Lntd) 

7200  Rw=0o»L0G(Do/0i )/(2. ♦Ksu) 

72!0  Tw-Tsat+Fr'Lntd 

7223  '.'u-f1dot/(Rhou*PI*0i"2/4 ! 

7230  Rsu-Rhou»Uu»Oi/Muua 

7240  Hi-Ci»Ku/Oi»Rew"  . 9»Prw"(  1/3.  >♦(  Muwa/FNMuw<  Ttui  >>A.14 

7250  rwic-T3vg-Q/«PI»0o»L»Ht ) 

72S3  IF  A9S(Tui-Tuic)>.31  THEM 

7270  T«i-(Tai+Twle)».S 

7290  SOTO  7240 

7290  ENO  IF 

7303  Tut-( Tui+Tui=  )».S 

7310  Ho-l/( 1/Uo-Qo/tOi'Ht  >-Ru  > 

7323  ENO  IF 

7330  ENO  IF 

7340  IF  Ihn-I  THEN 

7350  Thetab-a/(He»PI«D&*L> 

73G0  Tw-TsaH-Thetab 

7370  ELSE 

7333  Thatab-Tu-Tsat 

739!  IF  Hunntu-1  THEN  SOTO  7400 

7399  Athetab-rttu-Tsat 

7400  END  IF 

7410  IF  Thetab-'0  THEN 

7423  9EEP 

7430  INPUT  "TUALL'.TSAT  (0-CONTINUE,  !-EN0)",Iev 

7440  IF  Isv-3  THEN  GOTO  3130 

74S0  IF  Iev-I  THEN  9930 

74G0  ENO  IF 

7470  IF  Hwnntu-1  THEM  GOTO  7540 

7490  IF  Athetab<0  THEN 

7490  BEEP 

500  INPUT  "AUX  rUALL<TSAT  '.  0-CONTINUE  ,  I -END >" .Aiav 

5!3  IF  Ai-v-3  THEM  GOTO  3130 

523  IF  Ai-v-l  THEM  3933 

530  EMO  IF 

5401 

7550 i  COMPUTE  UARIOUS  °ROPERTIES 

7550  T?  :>:■>«■(  Ty+Tsat  )*.B 

"'573  Rho-FNRha<  TPiln) 

530  Mu-FNMu(T»il«! 

7593  K-FNK(Tf iln) 

7533  Cc-FNCp( T?ilr ! 

5!3  9eta-FN0aia(TFilm) 

523  H  f  "— FNH  f  g<  Tsat  ! 

523  Mi-Mu/P.ho 

c  4  g  iinba.u  '(  Phi'C"  ' 


95 


7S59  Pr-Mi. Alpha 

7553  Psat-FNPaat* Tsai  ) 

7ST0 ' 

rcgo i  COMPUTE  VARIOUS  PROPERTIES  POP  AUX  TU8E 

7520  IF  Hwnntu-I  THEM  GOTO  7793 

7703  Atf  ilfi-(Atw+Taat  )».5 

7710  Arho*FMRho( At f i In ) 

7723  Anu-FNMu'.Atf  iln> 

7733  Ak »FNK< At f i in  ) 

7713  Aep"FNCp(Atf tin! 

7750  Abeta-FNSsta< Atf tin ! 

77S3  Ani-Anu/Arho 

7770  Aalpha-Ak/(Arho»Acp ) 

7790  Apr— Am/Aalpha 

77931 

79001  COMPUTE  NATURAL-CCNVECTIVE  HEAT-TRANSFER  COEFFICIENT 

79! 0!  FOR  UNENHANCEO  ENO( S  ) 

7923  Hbar— 190 

7930  Fs-<Hbar»P.'<Kcu*A>  >'.5*Lu 

7943  Tanh-FNTanh(Fs) 

7953  Thala-Thetab*Tanh/Fa 

79S0  Xx-<9.91 •8eta»Thetab»0o*3»Tanh/(Fe»Ml*Alpha  >>" . ISSSS7 

7973  Yy(  !+<  . 559/Pr  >*<3/IS>  )"(9/27! 

7993  Hbarc-K.'Oo*<  .S-t.397»X/./Yy  >•: 

7990  IF  ASS«  !Hbar- Hbarc !.'Hbar=  >>.00l    THEM 

7930  Hbar— (Hbar+Hbarc>*.5 

7910  SOTO  7930 

7920  END  IF 

7933! 

7940'  COMPUTE  NATURAL -CONNECTIVE  HEAT-TRANSFER  COEFFICIENT 

79501  FOR  UNENHANCEO  SNO<  S  )  FOR  AUX  T'JSE 

79S0  IF  Hunntu-I  THEM  SOTO  3090 

7270  Ahbar— 193 

7990  Fs-( Ahbar*P/(Kcu»A)  >  '  .S»Lu 

7990  Atanh-FNTanh(Fe) 

9000  Atheta-Athatab'Atanh/F- 

9313  Axx-< 9.91 •Abeta*Athetab*0o*3»At3nh/(Fe*Ani»Aalpha  )  )" . ISSSS7 

9023  Ayy-( !+(  .559/Apr  )-(9/tS))*(9/27) 

9030  Ahbarc-Ak/Oo»(  .5+ . 397»Axx/Ayy  )"2 

9040  IF  A8S< (Ahbar-Ahbarc >/Ahbarc >> .301  THEN 

9350  Ahbar— < Ahbar+Ahbarc  !».S 

93S3  GOTO  7980 

9070  ENO  IF 

93931 

93901  COMPUTE  HEAT  LOSS  RATE  THROUGH  UNENHANCEO  ENO< S  ) 

9100  Ql-<Hbar—P»Keu»A  )' ,S*Thatab»Tanh 

9113  Qc»0-Z-Qt 

3!Z3  Aa-PI»02»L 

1130  i 

9  140  'COMPUTE  HEAT  LOSS  RATE  THROUGH  UNENHANCEO  ENO( S 5  OF  AUX  TUBE 

9153  IF  Hunntu-I  THEN  GOTO  9190 

9153  Aql-' Ahbar ♦P»Kcu»A > " .S»Athetab»Atanh 

9170  Aqc»A-jq-2«Aql 

2  I  93' 

9123'  COMPUTE  ACTUAL  HEAT  FLUX  AND  SOILING  COEFFICIENT 

3200  Odp=Oc'As 

3213  Htube-Qdp/Thetab 

9ZZ3  Caf-»(Cp»Thetab/Hfg  :/< Qdo/' Mu*Hfg ?•'  .3l4/«  3.2!  *Rho  :"  .5  !  U.3.)»Pr  I. 

3ZZQ1 

3Z23'  CQMPUTE  ACTUAL  UEAT  FLUX  ANO  SOILING  COEFFICIENT  C0R  AUX  TUBE 


96 


3250  IF   Hwmritu3!    THEM   GOTO    3239 

9253  ftuqdp-Aqs/fta 

9273  Ahtube-Auqdp/Athetab 

9 230  Acs  f- (  Acq  »A that sb.'Hfg  >/<  ftuqdp/<  Anu*Hfg  )•'.  .01  4/(  9. 91  *(\rho  )"  .5  >"  (  1/3.  >*Apr''  I 

92931 

9333'  RECORD  TIME  OP  DATA  TAKING 

9313  IF  Im-0  THEN 

9323  OUTPUT  709; "TO" 

9339  ENTER  709;ToidS 

9340  ENO  IF 
9350! 

93601  OUTPUT  OATA  TO  PRINTER 

9370   PRINTER  IS  70! 

9390   IF  Iov-3  THEN 

9390   PRINT 

9400  'PRINT  USING  "l0X,"*Oata  Set  Number  -  ""  ,ODO  ,ZX ,"  "9ulk  Oil  7.   -  " " ,00.0  ,SX  ,  1 

4A";J  ,9op,ToldS 

9410  PRINT  USING  "l0X.""Oata  Set  Number  -  "  ,000 ,2X ," "Bulk  Oil  7.  -  " " ,00.0" : J ,B 

ap 

9423   PRINT  "  TIME:"  ,TIMES< TIMEOATE > 

9430   IF  Ihm-0  THEN 

9440   PRINT  USING  "I0X,""TC  No:     1       2  3      4      S      S       7 

8""" 
9150  PRINT  USING  *10X,""Tenp  : " *  ,9( IX  , MOO. 00  )" :T( 1  !  ,T( 2  >  ,T( 3 > ,T< 4 ) ,T( 5  )  ,T( S  )  ,T« 
7)  ,T(9) 

9451   IF  Hwmntu-I  THEN  GOTO  9490 
94S0   PRINT  USING  "!0X,""TC  No:     9       (0      M      12      13      14      15 

IS""' 
9470  PRINT  USING  " 1 0X .""Temp  :"" ,8< IX ,M00 .00 >" ; T( 9 ) ,T(  10 )  ,T<  1 1  )  ,T<  12  )  ,T<  13  >  ,T(  1 
4  )  ,T<  IS)  ,T(  IS) 

9490   PRINT  USING  " 1 0X  , " "   Twa    ATwa    Tliqd    TliqdZ   Tvapr   Psat    Tsump 

9490   PRINT  USIN6  " 1 0X ,3( MOO . 00 , 1  X ! , I  X ,M00 . 00 , 1  X ,2( I  X .MOO . 00 ) ,2X ,M00 . D " ; Tw .Atw , T 

ld,Tld2  Jv.Psat  .Tsuno 

9500   PRINT  USING  " 1 0X , " "  Thetab   Htube      Qdp         Athetab  Ahtuba      AuQd 

p*"" 

9510  PRINT  USING  " I0X , MOO. 30 . IX ,MZ .30E , I  X ,MZ .30E . I  X ,M00. 30 . ! X .M2.30E . I  X ,MZ . 30E" 

; Thetab .Htube ,Qdp .Athetab  .Ahtube  .Auqdp 

9520  ELSE 

9530   PRINT  USING  "  1 0X  . " "  F*a     Uu    Tsat   Tinl  Tdrop  Thetab      q         Uo 

Ho""" 
9540  PRINT  USING  " 1 0X ,4( 20.00  , 1  X ) ,Z .30 , 1  X ,00 .00 , 1 X  ,3( MZ . 30E . I  X  )" ;F«3  ,Vu  .Tsat  ,T  I 
nlet ,Tdrcp .Thetab ,Qdp  ,Uc  ,Ho 
9550   ENO  IF 
9550   ENO  IF 
9573   IF  lov-l  THEN- 
9590   IF  J-l  THEN 
3593   PRINT 
9500   IF  Ihn-0  THEM 

96 1 9   PRINT  USING  "I0X,""  RUN  Mo   Oil*   Tsat     Htube      Qdp        Thetab 

9623   ELSE 

3633   PPINT  USING  " 1 0X  , " "   FMS     OIL"   TSAT     HTUBE       OOP        THETAB 

9540  ENO  IF 
9553  EMO  IF 
gccg   re  [hm-0  Tuc*\ 

36~3   PRINT  USING  "  '  2X  ,  3D  ,  JX  .00  ,3X  ,M00  .  00  ,Z<   !  :<  ,MZ  .  30E  N "  :  J  ,9sp  ,  Tsat  , Htube  .Qdp  .  The 

'.  ab 

1633   ELSE 

3539   D°IMT  USING  " 1 2X ,30 ,4X ,D0 ,2X , MOO. 00 ,3(  I  X ,MZ . 30E ) " :F*a ,9op , Tsat , Htube  ,Odp  ,T 

he*.  2b 
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3733  ENO  [F 

87! 3  ENO  IF 

3723  IF  Isn-0  THEN 

3733  9EEP 

9743  INPUT  '•OK  TO  STORE  THIS  DATA  SET  t  !  -Y  ,3-N  )7"  ,0k 

3750  ENO  IF 

3753  IF  Ofc-I  OR  t«-l  THEN  J- it- 1 

3773  IF  OK- 1  AND  ln=0  THEN 

3730  IF  Ihn-0  THEM  OUTPUT  3Fiial i8op .TaldS ,Emf ( ♦  )  ,Vr  ,  Ir  ,Avr  .Air 

3793  IF  Ihn-I  THEN  OUTPUT  SFilal ;9ep JaldS .Enf < ♦ ) ,Fma 

3900  ENO  IF 

9913  IF  Iuf-I  THEN  OUTPUT  3Uf:le;Uu,Uo 

3320  IF  Ira-I  THEN  OUTPUT  SRaf  i  le;F.ia  .Raw 

9930  IF  (In-I  OR  Ok-I  !  ANO  Ipiat-I  THEN  OUTPUT  SPlot ;Qdp  .Thatab 

3940  IF  In-0  THEN 

9950  BEEP 

99G3  INPUT  "UTLL  THERE  8E  ANOTHER  RUN  !  I -Y  ,3-N >? "  ,Go_on 

9970  Nrun-J 

9893  IF  5o_an-0  THEN  3930 

9990  IF  So_on<>0  THEN  Rapaat 

9900  ELSE 

9910  IF  J<Nrun+l  THEN  Rapaat 

9920  ENO  IF 

9930  IF  In-0  THEN 

9940  BEEP 

89S0  PRINT  USING  " I 0X  , " "NOTE:  "  ,ZZ  ,"    data  runs  uara  jtarad  in  fila  " "  ,  I 0A"  i J- 

1  ,02_?ileS 

3960  ASSIGN  OFilal  TO  ♦ 

9973  OUTPUT  9Fila2;Nrur!-! 

9990  ASSIGN  8Filal  TO  Ql_fila* 

3990  ENTER  9Fi Isl ;OataS  .Ldta!  ,Ldtc2  ,Itt 

399!  IF  Hunntu-I  THEN  GOTO  9000 

3993  ENTER  BFilsl ;Aldtcl ,Aldtc2 

9030  OUTPUT  BFile2;QateS  ,Ldtc!  ,Ldtc2  .It t 

9301  IF  Hunntu-I  THEN  SOTO  9310 

9303  OUTPUT  8Fila2;Aldtc!  ,Aldta2 

9010  FOR  I- I  TO  Nrun-I 

3020  IF  Ihm-0  THEN 

9030  ENTER  9Filsl ;3cp  .ToldS  .Enf < • >  .Vr  .Ir 

9040  IF  Hwnntu-I  THEN  SOTO  9060 

90S0  ENTER  8Filal;nvr. Air 

9060  OUTPUT  9Fila2;8op  ,Told«  ,Enf < ♦ >  ,Ur  ,lr 

9070  IF  Huimntu-I  THEN  SOTO  9090 

9080  OUTPUT  9File2 ;Avr, Air 

9090  ELSE 

9100  ENTER  SFilel ;9op  .ToidS  ,Enf( *  )  ,Fma 

9! 10  OUTPUT  8Fiia2;Bop,ToldS,Snf< ♦  >  ,F*a 

9120  ENO  IF 

9130  .  NEXT  I 

9140  ASSIGN  OFUel  TO  » 

3150  PURSE  "OUMMY" 

9160  ENO  IF 

9170  9EEP 

9130  PRINT 

9190  IF  [plat-l  THEN  PRINT  USING  "  !0X ,  "  TIOTE:  "".ZZ,""  <-Y  pairs  uiera  starad  in 

plat  data  fila  " "  ,  I  0A"  ;  J-  !  ,P_r"  i  ieS 

9230  ASSIGN  3Fiia2  TO  ♦ 

92  '■  3  ASSIGN  JPlat  TO  • 

9223  IF  Iuf-I  THEN  ASSIGN  JUfiia  TO  • 

9233  IF  Ira-I  THEN  ASSIGN  JRariia  TO  ♦ 
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32  13 

CALL  3  tat s 

9250 

9EEP 

3253 

INPUT  "LIKE  TO  PLOT  DATA  '  I-?  O^N?0"  Ok 

32~Q 

re  Ok3!  THEN  CALL  Plst 

3233 

SUGENO 

3230 ' 

3333' 

CURUE  FITS  OF  PROPERTY  FUNCTIONS 

33  I  3 

OEF  FNKcu'.  T  ) 

3323" 

OFHC  COPPER  Z50  TO  303  K 

3333 

Tk-T+273. !S     ' 0  TO  K 

9343 

K-434- . t 1 2 • Tfc 

3350 

RETURN  K 

9360 

FNENO 

3373 

ngc  PNMy',  t  j 

33931 

173  TO  350  K  CURVE  FIT  OF  VISCOUSITY 

9390 

Tk-T+273 . ! 5     !C  TO  K 

3433 

Mu-EXP(-4*.4636  +  <  131  1  .47/Tk  >  >»1  .0E-3 

34  10 

RETURN  Mu 

9430 

FNENO 

94  30 

OEF  FNCs'.T) 

94401 

190  TO  400  K  CUR'-'E  FIT  OF  Cp 

9450 

Tk-T±273.IS     !C  TO  K 

9460 

Cp-. 40199+1 .5S007E-3»Tk+l .51 494E-5»Tk "2-5 .S79S3E-I 

9470 

Cp-Cp»l000 

9490 

RETURN  Cp 

9490 

FNENO 

9530 

OEF  FNRho(T) 

9510 

Tk-T+273. 15     'C  TO  K 

9533 

X-l-< 1 .9»Tk/7S3.9S>   'K  TO  R 

9530 

Ro-SS.Zi^SI . !464l4»y*< !/3>+tS.4l90tS»X+17.476938»X 

9540 

Ro-Ro/. 052429 

9550 

RETURN  Ro 

9503 

FNENO 

9573 

□EF  FNP-(T ! 

3590 

Pr-FNCp( T)^FNKu<T )/FNK(T ) 

9530 

RETURN  Pr 

9503 

FNENO 

9510 

OEF  FNK ( T  ) 

96231 

T:360  k  uith  t  in  C 

3S30 

K-.07I-. 000251 *J 

3S40 

RETURN  K 

3550 

FNENO 

3660 

OEF  FNTanh(X ) 

3670 

P-EXP(X ) 

3690 

Q-l/P 

9530 

Tanh-(P-0  !/(P+Q ) 

3730 

RETURN  Tanh 

3710 

FNENO 

9733 

OEF  FNTvav(U! 

9730 

COM  .'Cc/  0(7!  ,  leal 

9740 

T-C(3> 

3753 

FOR  !■-!  TO  7 

3'733 

r-r+C! i  >»y" i 

97'73 

NEXT  1 

3790 

IF  tcai-l  rHEM 

9793 

T=-T-5.74ZZ934E-Z*-T«'  9  .3277043E-3-T*'.  -9  .  32533  1  7E-5  ! 

3930 

ELSE 

39!  3 

TaT*3.S25997E-2'-T»'  3.751  99E-3-T»5. 35 39259E-5  ) 

33Z2 

END  IF 

a9Z2 

OCTIjDf,]  T 

,5+1  .  I  !9929»X/,2 
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3S4C   FNENO 

9SSC   DEF  cN5-t3'T  ) 

99ES   Rop-FNRhc(  T+.  !  J 

9370   Rom"FNRho<  7- . !  ) 

9992   Beta--2.'<  Rop+Ron  >•(  Rop-Ro«  )/.Z 

9990   RETURN  Beta 

9930   FNEND 

9910   DEF  FNHfg<T  ) 

9920  Hfg-1  .3741344EJ-5-T»(3.30943G1E  +  2  +  T»l  .21  SSI  43) 

9930   RETURN  Hfg 

9940   FNEND 

99S0  DEF  FNPsat(Tc  > 

99S01  0  TO  90  deg  F  CURVE  FIT  OF  Paat 

9970  Tf-1.8»Te*32 

9990   Pa-S.94S52S  +  Tf »(  . 1 S352092  +  Tf •<  I . 4940963E-3*Tf »9.S I S0S71 E-G  )  ! 

9990   Pg-Pa-14.7 

O000  IF  Pg;0  THEN       I  +  -PSIG,  — in  Hg 

0010  Psat-Pg 

0020  ELSE 

0030  Psat-Pg»29.92/14.7 

0040  ENO  IF 

0050  RETURN  Psat 

0OS0  FNENO 

0070  DEF  FNHamoothCX  ,Bop  .Isa*.  > 

0090  DIM  ft(5>,B(5),C(S),D(S) 

0090  DATA  .20525, .25322, .319048, .55322, .79909,! .00258 

0100  DATA  .74515. .72992, .73189, .71225,. 68472 ,.64197 

0110  DATA  . 41092. .17726  ..25142, .54906. .81916  .1 .0845 

0120  OATA  .7-1403. .72913. .72555. .696691  ,.665957, .51999 

0130  READ  A( ♦  ),B<» > ,C( • ) ,D( • ) 

0140  IF  Bop<6  THEN  I-9op   ~ 

0150  IF  Bop-6  THEN  1-4 

0160  IF  Bop- 10  THEN  1-5 

0170  IF  Iaat-1  THEN 

0190  Hs-EXPf  A( I  )+B! I  )  *L9G ( X  !  ) 

0190  ELSE 

0200  H«-EXP( C( I  >*D( I  )»LQG< X  ) ) 

0210  END  IF 

3220  RETURN  Hs 

0230  FNENO 

0240  DEF  FNPoly(X  ) 

0250  COM  /Cply/  A(  10,10)  ,C(  10)  ,B(S  )  .Nop  .Iprnt  ,0po  .Hog.  I  f  n  ,1  join  .Njoin 

0260  Xl-X 

0270  Poly-B(0  ) 

0290  FOR  1-1  TO  Nop 

0290  IF  Ilog-1  THEN  Xl-LOG(X) 

0300  Pely-PoIy+B« I  » • X 1 " I 

0310  NEXT  I 

0320  IF  Ilog-1.  THEN  Pc  i  y=EXP  '  P  =  1  >  ) 

0330  RETURN  Poly 

0340  FNEND 

0350  SUB  Poly 

03G0  DIM  R(  10  )  ,S;  10  )  ,Sy(  12  ' ■  ,  =  .  '  12  )  ,X.-  MOO  )  ,Yy(  !  30  ! 

10370  COM  /Cply/  A(  10  ,  10  )  ,C.  10  !  ,B(  5  >  ,N ,  Iprnt  ,0po  ,  I  log  ,lfr. ,!  join  .Njsin 
10380  COM  /Xxyy/  Xp(25)  ,Yp(25) 
10390  FOF  1-0  TO  4 

1O40O  B< I  ;-0 

'3410  NEX  T  I 

1  0  j  2<2    EEEF 

10430  INPUT  "'ELECT  <0=cILE  1  =L'E  V90APC  2-PRQGRAM!"  Irr 
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044C  Irt-lr.-H 
q/icpi  accc 

0460  INPUT  "ENTER  NUMBER  Qc  >.->  DAIR5"  ,Np  • 

0470  IF  Ir»"!  THEN 

0490  BEEP 

0490  INPUT  "ENTER  DATA  ^i^c  NAME" ,D_f ileS 

0500  BEEP 

0510  INPUT  "LIKE  TC  EXCLUDE  DATA  PAIRS  (  1  -Y  ,0-N  )">"  ,Ied 

0520  IP  led-!  THEN 

0530  BEEP 

0540  INPUT  "ENTEP  NUMBER  OP  PAIRS  TO  BE  EXCLUOED" , Ipe> 

0550  END  IP 

0560  ASSIGN  SPile  TO  D_fileS 

0570  ELSE 

0530  BEEP 

0S90  INPUT  "WANT  TO  CREATE  A  OATA  FILE  (  1-Y  ,0-N )?"  .Ye.S 

0500  IF  Yes-!  THEN 

0510  BEEP 

0620  INPUT  "GIVE  A  NAME  FOR  DATA  FILE"  ,D_f i le$ 

0530  CREATE  BOAT  0_fileS.S 

0540  ASSIGN  BFile  TO  D_file$ 

0550  END  IF 

0560  END  IF 

0570  BEEP 

0690  INPUT  "ENTER  THE  ORDER  OF  POLYNOMIAL"  .N 

0690  FOR  1-0  TO  H*2 

0700  SyU  )-0 

0710  Sx(I  )-0 

0720  NEXT  I 

0730  IF  Ied-1  AND  Iw-1  THEN 

0740  FOR  1-1  TO  Ipex 

0750  ENTEP  *File;X,Y 

0760  NEXT  I 

0~70  END  IF 

0790  FOR  1-1  TO  Np 

0790  IF  In-!  THEN 

0900  IF  Opo-2  THEN  ENTER  ffFiie:X,Y 

0910  IF  Opc<2  THEN  ENTER  SFilei^.X 

0S20  IF  Opo-1  THEN  Y-Y/X 

0930  IF  Ilos-1  THEN 

0940  IF  Opo-2  THEN  Xt-X/Y 

0950  X-LOG(X ) 

0950  IF  Opo-2  THEN  Y-LOS(Xt) 

0970  IF  Opc<2  THEN  Y-LOG(v! 

0990  END  IF 

0990  END  IF 

0900  IF  In-2  THEN 

0910  BEEP 

0920  INPUT  "ENTER  NEXT  X-Y  PAIR",X,Y 

093C  IF  Yas-1  THEN  OUTPUT  PF:ls;X  Y 

THEN 


0940 

END  IF 

0950 

IF  Ir.   .3 

0950 

X .-.  (  I  )  -  X 

0970 

V,.(  T  \mV 

0990 

ELSE 

0990 

V  m  ,V  n  (  I  -  J 

1  QOiPi 

y=YC; i-i 

!0!O 

END  IF 

'  czc 

D  '  p  )  =  V 

'030 

S  v  (  0  >  -  5  ■ 
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!  2  i  2  3  (  I  )  ■  X 
352  S.--(  !  ;-S* '.  !  t+X 
0S3  FOR  J- 1  to  rj 
273  R'.  J  >-R( J-!  J»X 
293  =>•'  J  >-Sy<  J  )+&(  J  :• 
390  NEXT  J 
1 22  cnp  j»2  TO  M »2 
!  !  0  5( J  >"S< J- !  ?»X 
!23  5x(J  >-=.<(  J  >*S<  J  :• 
!30  NEXT  J 
I  40  MEXT  I 

!S0  IF  Vss-!  AND  In-2  THEM 
!G3  SEEP 

173  PRINT  USING  "12X.QQ,""  X-Y  pairs  uiers  stored  in  file  " "  ,  I0A" :No  ,0_? t la* 
! 93  END  IF 
!93  S*(0>"Np 
230  FOR  1-3  TO  N 
210  C(  I>-Sy< I  ) 
223  FOR  J-0  TO  N 
233  A('I,J}"Sx(I-Kj  ) 
240  NEXT  J 
253  NEXT  I 
250  FOR  1-0  TO  N-l 
273  CALL  Otvtde< I > 
290  CALL  Subtract* IH  » 
293  MEXT  I 

200  3(M>"C(!*)/A(M,N! 
310  FOR  1-0  TO  N-l 
323  S* N-l -I  )-C(N-l-I  > 
333  FOR  J-0  TO  I 

340_  BIN-I-I  ?-9<N-l-I  )-A<N-!-I  ,N-J  >»8(N-J  ! 
350  NEXT  J 

3G0  B(N-I-I  !-9(N-l -I  }/A<N-!-I  .N-l-I  > 
370  NEXT  I 
393 i PR  INTER  IS  73 1 
390 i PRINT  9( ♦  } 
400IRRINTER  IS  705 
4!0  IF  Iprnt-0  THEM 

423  PRINT  USING  " I 2X ," "EXPONENT     COEFFICIENT 

430  FOR  1-0  TO  N 

440  PRINT  USING  *15X.00,SX,l10.70E,,sI,B<I) 
450  NEXT  I 
4S0  PRINT  "  " 

473  PRINT  USING  " 1 2X , " "OATA  POINT      X  Y      Y( CALCULATED  )  OISCR 

cpA^jrv 

■193  FOR  I- 1  TO  No 

490  Ye-SO! 

530  FOR  J- I  TO  N 

5!0  Ye»Yc+9< J »»Xx<  I  )"J 

523  MEXT  J 

533  D-Yy(  I  )-Yc 

540  PRINT  USING  "ISX  ,3D  ,1X  ,  4(  MD  .SDE-,  I  X  >" ;  I  ,:<.<.<  I  )  ,Yy<  I)  ,Yc  ,0 

553  NEXT  I 

553  END  IF 

573  ASSIGN  JFiia  TO  ♦ 

593  5U8EN0 

590  ;'J9  Di-ida^M1 

533  COM   Cpl/'  M   12  ,  !3  :  ,1'.   !3  '  ,9'5  )   ,M  .larnt  ,0Co  ,  I  Loq  ,1  fn  .1  join  ,Njoin 

eta  C2R  ' =M  TG  M 

513  *o=A<  I  M  ' 
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1630  FOR  J-M  TC  N 
540  At  I  J  >"A<  I  J  >/Ac 
550  NEXT  J 
550  C(I>"CtI>/As 
570  NEXT  I 
590  SUBEND 
S90  SUB  Subtract tK  ! 

730  COM  /Cply/  A«  10  .10  >  ,C(  10)  ,B<5  !  .N.Ipmt  ,0po  .Ilog.Ifn  .Ijoxn  .Njoin 
710  FOF.  I-K  TO  N 
720  FOR  J-K-l  TO  N 
730  A< I  ,J  >-A(K-1  ,J  >-A< I  ,J  ) 
740  NEXT  J 

750  C(  I  >-C(K-l  >-C<  I  ? 
750  NEXT  I 
770  SU9EN0 
790  SUB  PI  in 

790  COM  /Cply/  At  1  0  . 1  0  !  ,C« 1 0  >  ,B( 5 ) ,N , Iprnt  ,Opo  ,  I  log  ,  I f n , I  join , Njoin 
900  COM  /Xxyy/  Xx« 25 ) ,Yy( 25  ) 
910  PRINTER  IS  705 
920  BEEP 

930  INPUT  "UANT  TO  PLOT  Uo  vs  Uu?  ( t -Y ,0-N )" , Iuo 
940  IF  Iuo-0  THEN 
950  BEEP 

950  INPUT  "SELECT  (0-h/h0X  same  tube , t-ht HF >/ht sm  )'  ,Irt 
970  BEEP 

980  INPUT  "SELECT  h/h  RATIO  (  1-FILE  ,0-COMPUTED  )"  .Ihrat 
890  IF  Ihrat-0  THEN 
900  BEEP 

910  INPUT  "WHICH  Tsat  (  !  -G  .7  ,0— 2  .2  )"  ,Isat 
920  END  IF 


THEN 


1930 

Xrrin-0 

1940 

Xrax-10 

1950 

Xstep«2 

1950 

IF    Irt-0 

1  970 

Ymin-0 

1  990 

Ymax-1 .4 

1990 

Yst-p-.2 

2000 

ELSE 

2010 

Ymn-0 

2020 

Yma*-!5 

2030 

Ystep-5 

2040 

END    IF 

2050 

ELSE 

2050 

Opo-2 

2070 

Ymin»0 

2090 

Ynsx-l 2 

2090 

Ystep-3 

2!  00 

Xrin-C 

2H0 

Xr.a.-.=4 

2120 

Xstep-I 

2130 

END    IF 

2140 

IF    !hrst 

2  !  50 

Vm:n=0 

2!  50 

y»s»>  =  !  c 

2170 

Yste°"3 

2'  90 

Xr  ._  nsQ 

2  190 

Xma, =9 

1202 

Xstep=2 

1  THEN 


12210  END  IF 
12220  SEEP 
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■•-•Tia    cotm]"    "  tfj .  cp  ]  .  ro    ~3Q2    ZZ22    9322    S3  99  ;  " 

ZZ4G    PP.  INT    "SC    9    !  92    9    1 29 :  TL    Z    9:" 

ZZS9    3p.i-!90/(X«3x-Xnin) 

ZZS2    5  ?/=  I  99/''  yna/.  -v~i  -  ! 

ZZ~9    PRINT    "F'J   9  ,9    PO" 

ZZ90    C9P    Xa»<ruri    TO    Xna.-.    STEP    '<»tss 

ZZ92  :<-(  Xa-Xnin  )*Sf * 

Z3C0  PRINT  "FA":X,",0:  XT:" 

23  !0  NEXT  Xa 

2220  PRINT  "PS  I00,0;P'J;" 

2230  PRINT  "P'J  PA  9,3  PO" 

Z340  FOR  Ya-Y.-iin  TO  Ynax  STEP  Ystep 

2350  Y-<  Ya-Yrtm  )»Sfy 

23G0  °RINT  "PA  0  ,"  ;  Y ,"YT" 

2370  NEXT  Ya 

Z390  PRINT  "PA  0,100  TL  0  Z" 

2390  POP  Xa-Xmin  TO  :<na.<  STEP  Xstep 

Z100  X-(Xa-Xmin>»Sf* 

2410  PRINT  "PA";X ,"  ,100;  XT" 

2420  NEXT  Xa 

2430  PRINT  "PA  100,100  P'J  PA  100,0  PO" 

2440  FOR  Ya-Ymrt  TO  Ymax  STEP  Ystao 

2450  Y-(  Ya-Ynm)*Sfy 

24S0  PRINT  "PO  PA  ! 00  "  Y  "YT" 

2470  NEXT  Ya 

2490  PRINT  "PA  !00,!00  P'J" 

2490  PRINT  "PA  3,-2  SR  1.5,2" 

2500  POR  Xa-Xntn  TO  Xmax  STEP  Xatsp 

2513  X-(Xa-Xnin)»Sf/. 

2520  PRINT  "PA'jX,"  ,0: " 

2530  IF  Iuo-9  THEN  PRINT  "CP  -2  .-I ;L9" ;Xas " " 

2540  IP  luo-l  THEN  PRINT  "CP   -1 .5  ,-t ;L3" ;Xa; " " 

25=0  NEXT  Xa 

25S0  PRINT  "P'J  PA  0,0" 

2573  POR  Ya-Yntn  TO  Ynax  STEP  Ystep 

2593  IF  A9S(  Ya)-'.  I  .E-S  THEN  Ya-0 

2590  Y-<  Ya-Y.im^Sfy 

2500  PRINT  "PA  0,";Y,"" 

2S!0  IF  Iuo-0  THEN  PRINT  "CP  -4  ,- . 25;L9" ; Ya; " " 

2520  IF  luo-l  THEN  PRINT  "CP  -3  ,- . 25;L9" ; Ya; " " 

2530  NEXT  Ya 

2S40  XlabeiS-"Oii  P-rcant" 

2S53  IF  Iuo-0  THEM 

2SEO  IF  Irt-0  THEN 

2573  YlabelS- 'h/hOX" 

ZS90  ELSE 

ZS90  yiahelS-"h/hsnooth" 

Z700  EMO  IF 

Z~13  PRINT  "SR  !.5,Z;P'J  PA  50,-10  CP  "  ;  -LEN<  X  labs  13  )/Z  ;  "9  ;  L9  "  ;  X  Ubs  IS  ;  " " 

2720  PRINT  'PA  -11,50  CP  9  ," ;-LEN( YlabelS  >/2*5/S; "01  9  . 1 ;L9" ; Y labels; " " 

2730  PRINT  'CP  9 ,0" 

2'740  ELSE 

2750  PRINT  "SP3;SPZ" 

Z"S3  PRINT  "SR  !.Z.Z.4;PIJ  FA  -9,35:01  9,I:L2U:PR  !,0.5:L9o:PR  -!,9.5;L9  (kbl/m 

Z"79  PRINT  "PR  -l,9.5;SR  l,l.5;L9Z:SR  1.5,Z:PP  .S,.S:L9.;CR  .5,9:L9K>" 

Z730  PRINT  "PA  4Z  -10:01  1  0:LS'.':PP  .1  -!:L9u;PR  1  . 5  :LS<  i-'  3  !  '* 

Z~12  PRINT  "SP9:SP i " 

Z922  cr.'0  IF 
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Z92G  SEEP 

2832  INPUT  "UANT  TO  PLOT  DATA  PRO"  ft  PILE  (  1  »Y  ,0«N  >*>"  ,D!.f 

2940  Icn-C 

2950  IF  01. p- 1  THEN 

22S0  SEEP 

2970  INPUT  "ENTEF  THE  NAME  OF  THE  DATA  FILE "  ,D_f l leS 

2990'  IF  Iuc-0  THEN 

2990  BEEP 

2900  INPUT  "SELECT  (0-LINEAR.  ! -LOG( X ,Y >'  ,1  log 

2910'  END  IF 

2920  ASSIGN  ©File  TO  D_fileS 

2930  BEEP 

2940  INPUT  "ENTER  THE  BEGINNING  RUN  NUMBER"  ,Md 

2950  BEEP 

2960  INPUT  "ENTER  THE  NUMBER  OF  X-Y  PAIRS  STORED"  .Nca;r« 

2970  IF  Iuo-0  AND  Ihrat-0  THEN 

2990  BEEP 

2990  INPUT  "ENTER  DESIRED  HEAT  FLUX',0 

3000  END  IF 

3010  BEEP 

3020  PRINTER  IS  1 

3030  PRINT  USING  "4X .""Select  a  symbol:""" 

3040  PRINT  USING  "4X,"-1   Star    2   Plus  sign""" 

3050  PRINT  USING  "4X,""3   Circle  4   Square'"" 

3060  PRINT  USING  "4X,""5   Rombus""" 

3070  PRINT  USING  mAX,m"S      Rlght-side-up  triangle""" 

3080  PRINT  USING  "iX."?  Up-side-doun  triangle""" 

3090  INPUT  Sy« 

3100  PRINTER  IS  70S 

3110  PRINT  "PU  DI" 

3120  IF  Sypt-I  THEN  PRINT  "SM»" 

3130  IF  Sym-2  THEN  PRINT  "SM+" 

3140  IF  Syr-3  THEN  PRINT  "SMc" 

3150  Nn-4 

3160  IF  Iiog-1  THEN  Nn-1 

3170  IF  MdM  THEN 

3190  FOR  I-!  TO  (Md-1  ) 

3190  ENTER  ffFil-iXa.Ya 

3200  NEXT  I 

3210  END  IF 

3220  IF  Ihrat-0  THEN 

3230  01-0 

3240  IF  Ilog-1  THEN  O-LOG(Q) 

3250  END  IF 

32E0  FOR  I-!  TO  Npairs 

3270    IF    Isjo-0   AND    Ihrat-0    THEN 

3290  ENTER  BFilesXa  ,9( *  ) 

3290  Ya»B(0) 

3300  FOR  K-l  TO  Nn 

3310  Ya-Ya+9<K  !»0"K 

3320  NEXT  K 

3330  END  IF 

3340  IF  Iuo-1  OR  lhrat-1  THEN 

3350  ENTER  ?File:X3,Ya 

33S0  IF  Iuo-1  THEN  Ya-Ya.  '000 

3370  END  IF 

3390  IF  Iuc-0  AMD  Ihrat-0  THEN 

3390  IF  1135-1  THEN  Ya-EXP< Ye  ! 

3400  IF  Iicg-0  THEM  Ya-01/Ya 

3410  IF  Irt-0  THEN 
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131-3  IF  <3="3    THEN 

3130  Ye»Ya 

3-140  Ya-I 

3450  ELSE 

34S0  Ya-Ya/Yo 

3470  END  IF 

3433  ELSE 

3193  Ham-FNHamcolMQ.Xa.Isat 5 

3530  Ya-Ya/Hssn 

3510  END  IF 

3520  END  IF 

3533  :<;<(  1-1  >-Xa 

3540  Yy< I-l  )-Ya 

3553  X-(Xa-Xnin)»Sf.< 

3550  Y-(  Ya-Y.iin)»SFy 

3570  IF  Syn;3  THEN  PRINT  "3K" 

3590  IF  5yn<4  THEN  PRINT  "SR  1.4,2.4" 

3590  PRINT  -PA"  ,X  ,Y,*" 

3S00  IF  Sym>3  THEN  PRINT  "SR  I.2.I.S" 

3SI0  IF  Syn-4  THEN  PRINT  "UC2 ,4 ,99 ,3  ,-9  ,-4  ,0  ,0  ,9  ,4  ,0  , ; " 

3520  IF  Sym-5  THEM  PRINT  "UC3  ,0  ,99  .-3  ,-S  ,-3  ,S  ,3  ,5  ,3  ,-S ; " 

3S30  IF  Sym-S  THEN  PRINT  "UC3  ,5 .3  ,39  ,3  ,-9  ,-S  ,0  .3  ,9 : " 

3S40  IF  Sym-7  THEM  PRINT  "UC0  ,-5 . 3  ,99  ,-3  .9  ,S  ,0  .-3  ,-9: " 

3S53  NEXT  I 

36S3  SEEP 

3ST0  ASSIGN  9Fila  TQ  • 

3S93  END  IF 

3590  PRINT  "P'J  SM" 

3700  9EEP 

3713  INPUT  "UANT  TO  PLOT  A  POLYNOMIAL  ( l-Y ,9-N)7"  ,Okp 

3720  IF  Okp-I  THEN 

3730  BEEP 

3740  PRINTER  IS  I 

3753  PRINT  USING  "4X  .""Select  Lin-  type:""" 

3750  PRINT  USING  "SX,""3     Solid  line""" 

3770  PRINT  USING  "SX,""1      Oashed""" 

3790  PRINT  USING  "SX,""2.,,5  Longer  lins  -  dash""" 

3790  INPUT  Ipn 

3900  PRINTER  IS  70S 

39)3  9EEP 

3920  INPUT  "SELECT  ( 0-LINEAR  , ! -LOS( X  ,Y  )  >"  ,  I  log 

3930  Iprnt-1 

3940  CALL  Poly 

3950  IF  luo-l  THEN 

39S0  SEEP 

39^3  INPUT  "DESIRE  TO  SET  X  Lower  and  Upper  Linit  (  I -Y  ,3»N )?"  ,  Ixl  in 

3990  IF  Ixlin-0  THEN 

3990  XI 1-0 

3900  :<ul  =  7 

3910  END  IF 

3923  IF  Is  I  in"!  THEM 

3930  9EEP 

3940  INPUT  "ENTER  X  Lauer  Limf  ,Xl  I 

3350  SEEP 

33E3  IMPUT  "ENTER  X  Upper  Limit", Xul 

39~3  END  IF 

3392  END  IF 

"993  C1P  (a»<ll  TQ  <u!  =  TEP  :(atsB.'2S 
i 4022  I  ;n= [ z" ^ ! 
1  1Q10  i  a=»FMPcl  ,•'.  Xa  ) 
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14C2C 

IF  Ius-1  THEN  ?3=>s  1003 

I4C30 

vmi  Ye-Yrsin  )•  =  ?> 

14040 

X-<  Xa-Xnin >»Sf/ 

14050 

IF  Y:!0  THEN  Y-0 

14360 

IF  Y  130  THEN  GOTO  14  150 

1  4070 

Pu-0 

14093 

IF  Ipn-1  THEN  Idf-Icn  MOD  2 

14090 

IF  Ipn-2  THEN  Idf«Ien  MOD  4 

1  4  100 

IF  Ipn-3  THEN  Idf-Icn  MOD  9 

14113 

IF  Ipn-4  THEN  Idf-Icn  MOD  IS 

14  123 

IF  Ipn-5  THEN  Idf-Icn  MOD  32 

14133 

IF  Idf-1  THEN  Fu-1 

14140 

IF  Pu-0  THEN  PRINT  "PA",X,Y, 

PD" 

14  153 

tc  pu-i  THEN  PRINT  "Pfl"  X  Y  ' 

PU" 

14  ISO 

NEXT  Xa 

14  170 

PRINT  "PU" 

14  193 

GOTO  12920 

14190 

END  IF 

14203 

BEEP 

14210 

INPUT  "UnNT  TO  QUIT  M-Y.0-N 

)?"  .Iquit 

14220 

IF  Iqult-1  THEN  14240 

14230 

GOTO  12920 

14240 

PRINT  "PU  SP0" 

14250 

SUBEND 

U2S0 

SU8  Stats 

14270 

PRINTER  IS  701 

14290 

J-0 

14290 

K-0 

14  300 

BEEP 

14310 

IF  Iplct-1  THEN  ASSIGN  SFile 

TO  P_file$ 

14320 

BEEP 

14330 

INPUT  "LAST  RUN  No? ( 0-QUIT > " 

,Nn 

14340 

IF  Nn-0  THEN  14700 

14350 

Nn-Nn-J 

M3S0 

Sx-0 

14370 

Sy-0 

14390 

Sr-0 

14390 

S>.s-0 

1  4400 

SyS-0 

14410 

S:s-0 

14420 

FOR  I-!  TO  Nn 

14430 

J-J+1 

14440 

ENTER  SFile;O.T 

14450 

H-Q/T 

14450 

Sx«5x+G 

14470 

Sxs-S*s+Q"2 

1  4490 

Sy-Sy+T 

14490 

Sys-Sys+T"2 

1  4  =  00 

S=«Sz+H 

14510 

S^s'SiS-^H": 

14520 

NEXT  I 

1  4530 

Qave-S.-./Nn 

1  4543 

Tave-Sy/Nn 

I455G 

Have-Sr/Nn 

1  4550 

Sdevq-SQR(ABS(  (Nn'S.-s-S.  '2  )■' 

;  fjrs»?  Mn-  1  )  )  )  A 

14570 

Sdevt-SOR(  ^BS(  '  M-*=  .■«-  =  >  "2  ).' 

' Nn-' Nn-1  )  ))) 

1  4  550 

Sdsvh-SQR( AB5! (Nn"S:s-Sr"2  !  ' 

i  f ;.-.  •  i  Mr-  i  )  )  )  ; 

HCQJ 

C^=  1  mg.Jjg^.h  /  U  a  v  a 

• 

'  J600 

Sq=l00»Sdevq 'Gave 

!  4E  !  3 

St  =  ! 00*  S  dsv  t / T^v— 
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1522    IF    K=!     THEM    11539 
4530    pprji|T  . 

igjg    pp[MT    USING    "!!'<, ""DATA    F  ILE  :  " "  ,  !  4A"  ;F  i  leS 
jccq    pprriT 

4559   PRINT   USING    "MX, "■•RUN  Htuba  SdevH        Qdp  SdevO        Thetab   SdevT"" 

4573   K-l 

1S99   PRINT   USING    "  II  :<  ,DD  ,2(  ZX  ,2  .  30E  , !  :<  ,30  .  2D  )  ,2X  ,00  .  3D  , !  X  ,30  .  20" ;  J  ,Hav«  ,Sh  ,Oav- 

Sq.Tave.St 

4S93   GOTO    U323 

4  ""33    ASSIGN   '?Fils!     TO    ♦ 

47<9  PRINTER  IS  1 

4  723  SUSENO 

4730  SUB  Coef 

4743  COM  /Cply/  A<  10,13)  ,C(  105  ,B«S  >  ,N,Iprnt  ,  Ope  .Hag,  Ifn  .Ijom.Njoin 

4753  SEEP 

4753  INPUT  "GIVE  A  NAf-E  FOR  CROSS-PLOT  FILE"  ,Cpf« 

4773  CREATE  SOAT  CpfS.Z 

4793  ASSIGN  iFtla  TO  CpfS 

4790  S€EP 

4900  INPUT  "SELECT  ( 0-LINEAR  . I -LOG( X  ,Y  ) )"  ,1  log 

4910  SEEP 

43Z3  INPUT  "ENTER  OIL  PERCENT  < -I -STOP  )* ,Scp 

4930  IF  9oo<0  THEN  14970 

4940  CALL  Poly 

49S3  OUTPUT  9Fil-:Sop  ,9( • > 

43S0  SOTO  14913 

4S70  ASSIGN  BFile  TO  • 

4993  SUBEMO 

4993  SUB  Uiisan(C?  ,Ci  ) 

4933  COM  / U 1 1 /  OZ.Oi  ,0a  ,L  ,Lu  ,Kcu 

4913  DIM  Enf< !Z  ! 

4923'  'JLISON  PLOT  SUBROUTINE  DETERMINE  CF  AND  CI 

4933  9EEP 

4940  INPUT  "ENTER  DATA  FILE  NAME",F;lsS 

49E3  9EEP 

4950  PRINTER  IS  I 

4970  PRINT  USING  "4X , ""Selac t  option:""" 

4990  PRINT  USING  *4X,""   3  Vary  Cf  and   Ct""" 

4990  PRINT  USING  "4X,""   I  Fix   CF  Uary  Ci""" 

5000  PRINT  USING  "4X,""   2  Uary  Cf  Fix   Ci""" 

5013  INPUT  "ENTER  OPTION"  .  Icf ix 

5020  PRINTER  IS  701 

5030  IF  Icfi-x-0  THEN  15373 

5040  IF  lcfix>0  THEN  SEEP 

5353  IF  Icftx-1  THEN  INPUT  "ENTER  Cf",C3f 

5353  IF  Icfix-2  THEN  INPUT  "ENTER  CI"  .Ci 

5373  PRINTER  IS  I 

5393  INPUT  "Want  To  Uary  Caaf  fi  l-Y  ,0-N )"  .Iccoef 

5390  IF  locosf3!  THEN  INPUT  'ENTER  COEFF"  R 

5!33  PRINTER  IS  701 

OR  Ic?i*-2  THEN  Cfa».304 

THEM  CPa-Csf 


5!  10 

IF    [efix-0 

5129 

IF    IcfU-! 

5!  30 

C;a=C : 

5140 

<n-  .3 

5!  50 

c-3   ~ 

5!  50 

Jj-0 

5 !  -3 

°.r*2  . 

5 !  22 

[F    Iccoaf* 

5  t  93 

sorKiyca     ;c 

'HEM 
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15200  PRINT  Dc  D:  Kcu 

'5210  ASSIGN  PF  1 1  a  TO  F;1»S 

15220  ENTER  SFileiNrun  .DateS  .Ldtcl  ,Ldtc2,Itt 

15232  Rw-Dc*L0G(  Do/Di  )/'.  2*Kcu> 

15240  S^-0 

15250  Sy-0 

152SC  Sxy-0 

15270  S>.2-0 

15280  Sy2-0 

15290  FOR  I»!  TO  Nrun 

15300  ENTER  ffFi  le  ;Bop  .ToldS  ,Emf  (  •  \Fins 

15310!  CONVERT  EMF'S  TO  TEMPERATURE 

1=320  FOR  J-l  TO  5 

15330  T(J >-FNTvsv<Enf(J) ) 

153d0  NEXT  J 

15350  Tsat-(T( I  >+T(2 > >• .5 

153G0  TavQ-T(S) 

15370  6rad"37.98S3+.10«3S9»TavQ 

15390  Tdrop-Emf(7)»! .E*S/( 10. »Grad > 

15390  Tavgc-T(S  !-Tdrop».5 

15400  IF  ABS(Tavg-Tavgc >>.01  THEN 

15410  Tavg-(Tavg+Tavgc  )*  .5 

15420  GOTO  15370 

15430  END  IF 

15440! 

154501  Conpute  properties  of  water 

154Se  Kw-FNKw(Tavg) 

15470  Muwa-FNMuu(Tavg) 

15490  Cpw-FNCpy(Tavg) 

15490  Prw-FNPruUavg? 

15500  Rhow-FNRhow(T»vg! 

155101 

15520!  Conpute  properties  of  Freon-114 

15530  Lntd-Tdrop/LOGt ( T(5  )-Tsat >/(T(5  )-Tdrsp-Tsat  !  ) 

15540  IF  Jj-0  THEN 

15550  Tw- Taat+Fr-Ln*.  d 

15550  Thetab-Tu-Taai 

i cc7g  j , ■ | 

15590  END  IF 

15590  Tf-(Tw+Tsat  >".5 

15500  Rho-FNRho<Tf  ! 

15510  Mu-FNMu(Tf  ) 

15G20  K-FNK(Tf  ) 

15E30  Cp-FNCp(Tf  ) 

15540  Beta-FNBeta(Tf  ) 

15550  Hfg»FNHfg<Tsat  ) 

15550  Ni-Mu/Rho 

1SE70  Alpha«K/( Rhc'Cp  > 

15590  Pr-Ni. 'Alpha 

15E901 

157001  Analysis 

157! 01  COMPUTE  MOOT 

15720  A-PI»(Oc"2-Di"2 >/4 

! E~"32  D«P! *0c 

!5"40  Mdot-3.9S57E-3+Frts«'  3  .  5  I  955E-3-Pns  • '  S  .  S20OEE-5-Fr«  • '  !.2359SE-7-Fm-«!!.~i99" 

E-10)  !  ) 

15750  Q-Mdot *Cou«TdroD 

I57G01  COMPUTE  MATURAL-CONUECTIUE  HEAT-TGAr.'=FEP  COEFFICIENT 

1 5770 '  FOP  UNENHANCED  EMC S  ! 

15790  Hb3r»l90 
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15790  Fe-<  Hba.-»P/(Kcu»A  >  r   .5*Lu 

!5900  Tenh-FNTanh(Fe) 

!S9!0  Theta-Thetab»Tanh/Fe 

15920  Xx»<  9.9!«9ei3'Th-tab*0c*3*Tanh/(Fe*N:»Alpha  >  >"  .  1SSSS"7 

!593C  Yy-( l*< .559/Pr  >"( 9/l6)>*< 8/27! 

15940  Hbare-K/Do»< .5+ .397»Xx/Yy >*2 

5950  IF  A9S(  (Hbar-Hbarc  >.'Hbar):  .001  THEN 

5950  Hbar-(Hbar+Hbarc )».5 

5970  GOTO  15790 

5990  END  IF 

59901 

59001  COMPUTE  HEAT  LOSS  RATE  THROUGH  UNENHANCED  ENOS 

5910  Q!»(Hbar*P*Kcu»ft>" .5*Thetab»Tanh 

5920  Qc-Q-2»01 

5930  As-PI*02*L 

59401  COMPUTE  ACTUAL  HEAT  FLUX 

5950  Qdp-Oc/Aa 

59G0    IF    Icfix-0   OR    lefixM    THEN   Csf-I /Cf* ( 1 . /Rr > 

5970  Thatab-Caf/Cp»Hfg#(Qdp/<Mu»Hfg>»< .01 4/! 9.91 •Rho  > >" .5 ?* ( 1 /Rr  )*Pr* 1 .7 

5980   Ho-Qdp/Thetab 

5990   Omega-Ho/Cf 

S000  Uc-Q/(PI»Oo»L»Lintd> 

6010  Uu-«doi/<Rho«»PI»0i*2/4) 

6020  Rsw-Rhou»Uw»Gi/Muya 

5030  Twi-T«+Q»Rw/<PI»Oo«L > 

6040  6a«a-Kw/0i«RewA.8»Prw"< 1/3. )»(Muwa/FNMuw( Twi  )  >*. 14 

6050!  PRINTER  IS  1 

5050  Yw-( 1 ./Uo-Ru>»0nega 

6070  Xw-0mega»0o/(5ana»Qi  > 

6090  Sx-S>:+Xu 

6090  Sy-Sy+Yu 

6100  Sxy-Sxy+Yw»Xw 

51  10  Sx2-Sx2+Xw»Xu 

5120    Sy2-Sy2  +  YwYu 

5130   NEXT    I 

SM0  ASSIGN  SFile  TO  • 

6150  M-(Sx«Sy-Nrun*Sxy >/< Sx*Sx-Nrun»S*2 » 

6160  C-(Sy-Sx*M>.'N.-un 

6170  IF  Icfix-0  OR  Icfix-3  OP  Icfix-4  THEN 

5190  Cic-l/M 

6190  Cfe-l/C 

6200  ENO  IF 

6210   IF    lefix-l    THEN 

6220  Cic-l/M 

6230  Cfc-Cf 

6240  END  IF 

6250    IF    Iefix-2    THEN 

G2S0  Cic-Ci 

6270  Cfc-1/C 

S290  ENO  IF 

5290  IF  ABS(<Ci-Cic  l.'Cic  K  .00!  OR  ABS( «Cf-Cfc  )/CFc  >> .001  THEN 

S300  Ci»' Ci+C:c  )* .5 

£310  Cf-'Cf+Cfc  )• .5 

5320  PRINTER  IS  1 

G33S  PRINT  USING  "2X,""  Csf  -  " "  ,MZ . 3DE ,2X , " "  Ci  -  " "  ,M2  .  30E " ; Cs F  ,C i 

E340  PRINTER  IS  73! 

6352  GOTO  15210 
'  SZE?  END  IF 
!S3?C  PRINT 
1E39C  PRINTER  IS  70! 
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:92 
5423 
!64!0 
I  C423 
IS432 
1  5442 
15453 
15452 
!S4?3 
15493 
15420 
ISE02 
15513 
IS5Z3 
l  6533 
ISS40 
15550 
16550 
16570 
16590 
16590 
16600 
15610 
ISS20 
16630 
15640 
16650 
IS8S0 
IS670 
16690 
15690 
6700 
15710 
15723 
16730 
15740 
IS7S0 
15780 
15770 
IS793 
I  5790 
16900 
15910 
15920 
15930 
15940 
15250 
!6S50 
IS979 
15923 
15299 
15930 
IS3!3 
15322 
16933 
16240 
IS  952 
'5950 
l  5373 
5390 


" "  ,MZ.3DE  ,3X  ,MZ  .305''  ;C?a  ,Cia 
""  .MZ.30E  ,3X  ,MZ.30E";Csf ,Cl 


PRINT    USING    "23Y    ""      Cf 

PRINT  USING  "SX  ""ASSUMED 

PRINT  USING  "9X  .""CALCULATED 

PRINT 

SunZ=Sy2-2»M»S.-:y-2*C*Sy'-M'2*S/2-,-2*M*C»S,-.  *-Nrun»C"2 

PRINT  USING  "10X  .'"Sum  of  Souarsa  »  " "  .Z . 3DE" : Sur2 

PRINT  USING  "!0X  ,""Coef f isiant  -  " "  ,0.000" :Rr 

SUSENO 

OEF  FNMuu( T! 

A-247.9/<  T+I23.IS) 

Mu-2.4E-5*10"A 

RETURN  rtu 

FNEMO 

DEF  FNCpu( T  ) 

Cpu-4.21 l20959-T*(2.2S925E-3-T»( 4 . 4235  I E-S  +  2 . 71 429E-7»T ) > 

RETURN  Cpw!300 

FNEMO 

OEF  FNRhow<  T  ! 

Ro-999.S294S+T»( . 3! 2S9-T»< 5 . 49251 3E-3-T* I .234147E-S)) 

RETURN  Ro 

FNENO 

OEF  FNPpu( T  ) 

Pru-FNCpu( T >»FNMuu< T !/FNKw<  T  > 

RETURN  Pru 

FNENO 

OEF  FNKu<T  ) 

X-<T+273.1S>/273. IS 

Ku— .92247+X»(2.939S-X-< 1 .3007-X*'  . S2S77-. 07344 »X ) ) ) 

RETURN  Ku 

FNENO 

SUB  Plot 

COM  /Cply/  A( 10,13  )  ,C( 10!  ,9(5)  ,Nop  ,Iprnt ,0pa ,  I  log , I f n , I  join ,Njc in 

DIM  9s(3) 

INTEGER  Ii 

PRINTER  IS  I 

Idv-0 

9EEP 

INPUT  "LIKE  DEFAULT  VALUES  FOR  PLOT  ( I -Y  ,0-N  >?"  ,  Idv 

Opo-0 

9EEP 

PRINT  USING  "4X  .""Select  Option:"*" 

PRINT  USING  "SX,""0  q  versus  delta-?""* 

PRINT  USING  "SX  .- " 1   h  versus  delta-T""" 

PRItJT  USING  "SX,""2   h  versus  q""" 

INPUT  Opo 

9EEP 

INPUT  "SELECT  UNITS  « 3-SI  ,  1 -ENGLISH )", Iun 

PRINTER  IS  705 

IF  IdvOI  THEN 

9EEP 

INPUT  "ENTER  NUM8ER  OF  CYCLES  FOR  X-AXIS", C; 

9EEP 

INPUT  "ENTER  NUM9ER  OF  CYCLES  FOR  Y-AXIS", Cy 

SEEP 

INPUT  "ENTER  MIN  X-'.'ALUE  (MULTIPLE  OF  l0>",X-iin 

SEEP 

INPUT  "ENTER  MIN  f-'JAL'JE  (MULTIPLE  OF  l0)",Y-iin 

CLSE 

IP  Opc»0  THEN 
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I  ""SOS  rf.iipi-  .  ! 

I  73 !  3  /pi  i  pi"  l  30 

! "313  END  IF 

!  7333  [F  Ope!  THEM 

i^aaa  c>'>: 

I70S3  Ca«2 

173S0  Xnin-. ! 

17379  Ymm-100 

! 7390  ENO  IF 

17390  IF  Opo-2  THEM 

17130  IF  Iun-0  THEN 

171  10  Cy-3 

17120  Cx-2 

17130  Xntn-1000 

17140  Ynin-130 

17150  ELSE 

I71S0  Cy-3 

17170  Cx-3 

17190  Xpiin-100 

17190  Ynm-10 

17200  ENO  IF 

17210  EMD  IF 

17220  ENO  IF 

17230  9EEP 

17240  PRINT  - IM;SP1 : IP  2300.2200,9300,5300;" 

17250  PRINT  'SC  0,!90,0.!00?TL  2,0:" 

172S0  Sfx-100/Cx 

17270  Sfy-100/Cy 

17290  9EEP 

17290  INPUT  "WANT  TO  9Y-PASS  CAGE""  <  1 -Y  ,9-N  )"  ,  Ibyp 

17300  IF  Ibyp-I  THEN  1 95.13 

17310  PRINT  "PU  0,0  PQ" 

17323  Mn-9 

17330  FOR  1-1  TO  Cx+! 

17340  Xat-Xpun»l0"(  1-1  ) 

17350  IF  I-Cx+!  THEN  Nn-1 

173S0  FOR  J- I  TO  Nn 

17370  IF  J- I  THEN  PRINT  "TL  2  0" 

17390  IF  J-2  THEN  PRINT  "TL  I  0" 

17390  Xa-Xat»J 

17400  X-LSKXa/XninJ'Sfx 

17410  PRINT  "PA";X  ,*  ,0;  XT;" 

17420  NEXT  J 

17430  NEXT  I 

1~443  PRINT  "Pa.  !00,0;P'J;" 

17450  PRINT  "PU  PA  0.3  PU" 

174S0  Nn*9 

17470  FOR  I-l  TO  Cy+I 

17490  Y3t-Ynin*t0*< I-!  > 

17490  IF  [-Cy+I  THEN  Nn-! 

17500  FOR  J- I  TO  Nn 

17510  IF  J-1  THEM  PRINT  " TL  2  3" 

17523  IF  J-2  THEN  PRINT  " TL  !  3" 

17533  va-/at'J 

!7540  /-LST<Ya/Ypiin)»S?y 

! 75=0  PRINT     'PA    3  ,  •  ; Y  ,  "YT" 

1  ~CC0  rvJCV  T  J 
i  ~C~0  fjev  T  r 
i~cog    DDTfjT    -oa    g     1 0(j    ri     rj    2" 
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7500  cor  !  =  !  to  c.-m 

7EI0  Xat-Xmm*  IB"!  I-!  ! 

7E20  IF  I-C.-tA!  THEN  Nn-1 

"E30  FOP  J-1  TO  Nn 

7540  IF  J-!  THEM  PRINT  "TL  0  2" 

7E50  IF  J. I  THEN  PRINT  "TL  0  !" 

7550  Xa-XaW 

7570  X«LGT(Xa/Xfur.  >»Sf>. 

7590  PRINT  "PA" :X  , "  ,  102;  XT" 

7590  NEXT  J 

7700  NEXT  I 

7710  PRINT  "PA  100,100  PV   PA  100,0  PO" 

7720  Nrt-9 

7730  FOR  I-!  TO  Cy+1 

7740  Yat-Yrin«!0"( I-!  ! 

"750  IF  I-Cy+1  THEN  Nn- 1 

7750  FOR  J-l  TO  Nn 

7770  IF  J-l  THEN  PRINT  "TL  0  2" 

7790  IF  JM  THEN  PRINT  "TL  0  I" 

7790  Ya-Yat»J 

7900  Y-LGK Ya/Ymin!»Sfy 

7910  PRINT  "PD  Pft  100,",Y,"YT" 

7920  NEXT  J 

7930  NEXT  I 

7940  PRINT  "Pft  100,100  P'J" 

7950  PRINT  "PA  0.-2  SR  1.5.2" 

7950  Ii-LGT(Xmn) 

7370  FOR  1-1  TO  Cx+1 

7990  Xa-Xrun»l0*(  1-1  ) 

7990    X«L6T(Xa/Xmln>»Sfx 

n<3Q<S    PRINT    "PA"  ;X  ,'  ,0;  " 

7910    IF    Ii>«B    THEN    PRINT    "CP    -2  .-2 : LB  I  0 ;PP    -2  .2 ; LB"  ;  1 1 ; " " 

7920    IF    Ii.O   THEN   PRINT    "CP    -2  ,-2:LSl0;PP    0  ,2  :  LB  "  ;  I :  :  " " 

7930    Ii-Ii+1 

7940   NEXT    I 

7950    PRINT    "PV   PA    0 ,0" 

7950    Ii-LGTC  Yrtin  > 

7970    Y10-10 

7990  FOR  1-1  TO  Cy+1 

7990  Ya-Ymin»10*( 1-1 ) 

9000  Y-L5T(Ya/Ym;n>»Sfy 

9010  PRINT  "PA  0," :Y,"" 

9020  PRINT  "CP  -4  ,-.2S;LB10;PR  -2  ,2 ;LB" ; I i ; " " 

9030  Ii-Ii+1 

S0d0  NEXT  I 

9050  BEEP 

9050  INPUT  "WANT  USE  DEFAULT  LABELS  t I -Y ,0-N >'" , Idl 

9070  IF  Iiji^M  THCN 

9390  BEEP 

9090  INPUT  "ENTER  X-LABEL"  ,X  labslS 

9! 00  BEEP 

9! 10    INPUT    "ENTER    Y-LftEEL"    YlabelS 

9 1 20    END    IF 

Si  30    IF    Osc  .2    THEN 

o  !  4  (;    ddt i\i t    ••  5  p    i     2-PU    c 'A    40    -  1  4  •  " 

oicg    DDjf.jT     "L9'T:PP    - 1  .  G    3    CD    °P     1.2    0    PI ' :  PR     .5    -4;LBuc;PP 

c|C(;    ddjmt    "i_g-T.op       c,    -!;Les?t:PP     .  -    ':" 

3  1  7C    IF     lcn  =  0    THE'I 

l  O  i  op     pp  T|*iT      "l_D  )      ;  L'   ;  •■ 
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! 9 ! 90  ELSE 

S20C  PRINT  "!_9  !  (FV 

92 1 0  END  IF 

9220  END  IF 

9230  IF  Opo-2  THEN 

9240  IF  Iun«G  THEN 

9250  PRINT  "SR  1 .  E  ,2;FU  PA  40  ,-!4:LBq  (W.'mtSR  t  ,1 .St PR  0.5,1 ;LE2;SR  1  . E  ,2:PF 
0.5,-1  ;LE  )" 

92S0  ELSE 

9270  PRINT  "SR  l.5,2:PU  PA  34,-l4;LBq  (Btu/hrsPR  .5,.5;LE.:PR  .5, -.5;" 

9290  PRINT  "LBftiPR  .S.ItSR  !,!.5;L92sSR  1.5,2:PR  .S.-lsLB):" 

9290  END  IF 

9300  END  IF 

9310  IF  Oqo-0  THEN 

9320  IF  Iun-0  THEN 

9330  PRINT  "SR  !.5,2;PU  PA  -I2,40;DI  0,1;LBq  (U/mtPR  -1  ,0.5:  SR  1,I.5;LE2;SR  1 

5  2  ;PP.    1  . 5;  LB  5" 

9340  ELSE 

9350  PRINT  "SR  !.5.2;PU  PA  -12.32;DI  0,1iLBq  (Btu/hrsPR  - .5  ,  .5;LB. ;PR  .5, .5;" 

93BG  PRINT  "LBft;SR  I.I.SiPR  -1,.5tLB2»PR  1..5;SR  1.5,2;LB)" 

9370  END  IF 

8390  END  IF 

9390  IF  Oqc-->0  THEN 

9400  IF  Iun-0  THEN 

94101  PRINT  "SR  1.5,2;PU  PA  -12.39:01  0.l;LBh  (U/msPR  -!,.S;SR  l,1.5;LB2;SR  I 

S.2tPR  .5. .5;" 

8420  PRINT  "SR  1.2,2.4;PU  PA  -12.37;DI  0.1tLBhsPR  l,0.5;LBo;PR  -1,0.S:LB 
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9430  PRINT  'PR  -1..S.-SR  1,1.5;LB2;SR  1.5,2sPR  .5,.5sLB.:PR  .5.0;LBK>" 

9440  ELSE 

9450  PRINT  "SR  l.5,2;PU  PA  -12,29:01  0.1;LBh  (Stu/hrtPR  -.5 ,  .SsLB. sPR  .5, .St" 

9450  PRINT  "LBfttPR  -1,.5:SP  l.!.5:L92;SR  t.5,2;PR  .5,.5;LS.;PR  .S,.5;LBF>" 

9470  END  IF 

9490  END  IF 

9490  IF  Idl-0  THEN 

9500  PRINT  "SR  1.5,2;°U  PA  52, -IS  CP" ; -LEN! X  labels  >/2 ; "0; LE" ; X  labels ;" " 

9510  PRINT  "PA  -14,50  CP    0  , ' ': -LEN' Ylabel S  !/2»5.'S : "DI  0  , 1 sLB" ; YlabelS; " " 

9520  PRINT  "CP  0,0  01" 

9E30  END  IF 

9540  Ipn-0 

9550  Xll-1 .E+G 

9550  Xul  —  1  .E+G 

9570  Icn-0 

9590  Ifn-0 

9590  Ijoin-1 

9500  BEEP 

95 1 0  INPUT  "UANT  TO  PLOT  DATA  FROM  A  FILE  ( 1 *Y ,0»N  )f" ,01 

9E20  IF  01 =1  THEN 

9E30  9EEP 

9540  INPUT  "ENTER  THE  NAME  0r  THE  DATA  F ILE "  ,D_f i 1 eS 

gccg  ^cct^ki  JFiIs  TO  D  ':IeS 

9GG0  BEEP 

9E~0  BEEF 

9590  INPUT  "ENTER  THE-  BEGINNING  RUN  NUMBER"  ,Md 

9E90  BEEP 

c^OO    INPUT    "ENTER    THE   N'JMBEF    Oc    >'-Y    PAIRS    STORED"  .Noairs 

o-  i  (j  i    occp 

27Z21  INPUT  "CONNECT  DATA  WITH  LINE  I  !=v  0-N)7"  T  c  i 

9~Z0  BEcr 

=740  pointed  [C  i 
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13  "53 

PRINT  USING  MX  ,  ""Ss 

I  set  a  symbol: 

1  9TCffl 

DO  TMT  1  IC  T  ^Jg   "  CV   "  "  1 

S  t  ar      2      Plus  sign 

!9~73 

PRINT  USING  'SX  ""3 

Circis    1   Squars 

i  o-?ora 

DO  TMT  1  IC  JMC   "CV   "  "C 

Paribus 

i  o-ani 

BOiMr  using  "S:<  ,""S 

R tght-s ids-up  '.riangla 

t  oogg 

PRIM"  USING  "SX  ""7 

Up-side-dewn  triangle"" 

!  99 !  3 

INPUT  Syit 

t  0023 

PRINTER  IS  705 

I9S33 

PRINT  "PU  01" 

19940 

tc  c.-n-l  THEN  PRINT 

"SM» " 

19950 

IP  Syn-2  THEN  PRINT 

"SN+" 

19950 

;c  Syn»3  THEN  PRINT 

"SMo" 

19973 

IF  Md. 1  THEN 

i  9903 

FOR  I-1  TO  (Md-I  ' 

19993 

ENTER  3File;Ya,Xa 

1  9900 

NEXT  I 

19910 

ENO  IF 

19920 

FOR  I-l  TO  Npairs 

19930 

ENTER  0Ftl-;Ya ,Xa 

19940 

IF  I-!  THEN  01 -Ya 

18950 

IF  I-Noaira  THEN  Q2- 

Ya 

I99S0 

IF  Opo-I  THEN  Ya-Ya/ 

Xa 

19979 

IF  Opo-2  THEN 

19990 

OYa 

19990 

Ya-Ya/Xa 

15000 

Xa-Q 

15010 

ENO  IF 

19020 

IF  Xa<Xll  THEN  Xll-X 

a 

15020 

IF  Xa>Xul  THEN  Xul-X 

a 

15040 

IF  Iun-1  THEN 

19050 

IF  0po'.2  THEN  Xa-Xa» 

l  .3 

19050 

IF  Opo'.  0  THEN  Ya«Ya* 

.1751 

19070 

IF  Opo-0  THEN  Ya-Ya* 

.317 

19080 

IF  Opc-2  THEN  Xa~Xa* 

.317 

19090 

ENO  IF 

19100 

X-LGT(Xa/X.-un>»S?.< 

191  10 

Y-LGT(  Ya/Ymm)»Sfy 

19120 

Kj-0 

19130 

CALL  SymbtX  ,Y  .Syn.Ic 

l.Kj) 

I9U0 

SOTO  19270 

19150 

IF  Sy«>3  THEN  PRINT 

"Srt" 

19150 

IF  Syn<:4  THEN  PRINT 

"SR  1  .4.2.4" 

15170 

IF  Icl-0  THEN 

19190 

PRINT  "PA"  ,X  ,Y  ,•■• 

19190 

ELSE 

!  9200 

PR  INT  "PA"  X  Y  "PQ " 

1  9210 

ENO  IF 

l  3223 

IF  Sym  3  THEN  PRINT 

"SR  1.2,1.5" 

19230 

IF  Syn-4  THEN  PRINT 

'UC2  ,4  ,39  ,3  ,-9,-4,3,3,3,4, 

1  9240 

IF  Sym-S  THEM  PRINT 

"UC3, 3. 39, -3, -5,-3,5, 3,5  ,3 

19250 

IF  Syn-5  THEN  PRINT 

"UC3,S.3,99,3,-9,-S ,3,3,9: 

19250 

IF  3ym-7  THEN  PRINT 

'•'JC3.-5.3,99,-3,9  ,5  .3,-3,- 

l  92~3 

NEXT  I 

13293 

PRINT  " P  U " 

1  2290 

QCCD 

19303 

INPUT  "UANT  T0  LABEL 

7  i  ]  ,y  g«(M  y     J  [3b 

l  9313 

IF  !  1  ab" 1  THEM 

'9323 

cnu|T  •■cp3;cp"'" 

'9330 

9EEP 

I  9343 

Ic  K Lab-0  ruEM 

,-Si 
3;" 
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3353 

935G 
3370 
9393 
9392 
9403 

94  !  3 
9433 
9433 
9440 
9453 
94S3 
9473 
9490 
9493 
9530 

95  !0 
9523 
9530 

!9543 
9550 
I95S0 
9570 
9530 
9590 
I9S00 
'9510 
I9S23 
9530 
19543 
9550 
9SS0 
9570 
9530 
9590 
9700 
19710 
!9730 
9730 
9740 
9750 
9750 
97"73 
9790 
9790 
9930 
9913 
9923 
9933 
9940 
9953 
99S3 
99"2 
9993 
9990 
9933 
99 '  3 
9920 
9932 


<Lab-5 

y  1  s  b  ■  9  S 


TMpiJT     "CH|TCO     INITIAL 
yttsVi »b -5 

1 1 i— i* lab+9 

CO  TMT  "CD   i   1.5" 

PRINT  "SM;PA"  ,:<tt  ,Ytt  ,"L8 

PRINT  "PA" ,Xii ,Yti ,"L9 
rp  Synal  THEM  PRINT  "SM*" 
IF  Syn-2  THEM  PRINT 


LOCATIONS"  .Xlab.Ylab 


Hsat   Fii- 


Mars' 


re  c 


yn  = 


"SMJ-" 
THEM  PRINT  "SMo" 


.Kj 


;9op;"" 
.S,0;L9";9op<"" 


•PR  4,0;LSInc' 


Klab-I 

END  IF 

Kj-I 

CALL  Sytnb(Xlab  ,Ylab  .Sym.Ic 

PRINT  "SR  ! .1 .5:SM" 

IF  Sym'4  THEN  PRINT  "PR  2.0" 

9E5P 

INPUT  "ENTER  BOP"  ,Boo 

IF  9op<10  THEN  PRINT  "PR  2,0;L9' 

IF  9op.-9  THEN  PRINT 

Ihf-0 

IF  0 1 : 02  THEN  Ihf-I 

IF  Ihf-0  THEN  PRINT 

IF  Ihf-I  THEN  PRINT  "PR  4.3;L90ec" 

PRINT  "PR  2 ,0;L9" :0_f :ie3i "" 

PRINT  "SP3;SP! : SR  lTs.2" 

Ylab-Ylab-S 

END  IF 

9EEP 

ASSIGN  3File  TO  • 

Xll-XU/l  .2 

Xul-Xul»!.2 

SOTO  9340 
ENO  IF 

PRINT  "PU  SM" 
9EEP 

INPUT  "WANT  TO  PLOT  A  POLYNOMIAL  !  1 -Y  ,0-N  )? "  ,So_on 
IF  So_an-l  THEN 
9EEP 

PRINTER  IS  1 

PRINT  USING 

PRINT  USING 

PRINT  USING 

PRINT  USING  " 

INPUT  Ion 

pOT\lTCp;       J5      7QC 

9E5P 

INPUT  "SELECT  ( 3-L IN  .  I -LOG' X , Y  !  > "  . I  log 

Iprnt-1 

CALL  Paly 

tc  r  ?n-3  THEM 

SEEP 

INPUT  "ENTER  NUMBER  OF  CIL5  =  r0  JOIN1?"  .Njoin 

ENO  IF 

Ijain-0 

re  I?;?  N'Olfl  "HEN  !  "*iri— I 

IF  [fn-0  OP  I  jo:r=i  rFSn 

pop  ;.=■(;  ro  3 


4X  , 

.  ..  ~ 

sx 

■"3 

sx . 

• "  1 

sx . 

'  '2 

3e  lect  L  ine  type : " " 

Solid  line 

Dashed 

nger  t  ;ne  - 


dash 
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!  3952  9  s '.  I  •  '=9  3  •  I  •  >+9<  [  ■  ! 

I  age g  NEXT  I  • 

I  99713  r  ( •«»[  f  n+i 

! 9990  END  IF 

!  9993  IF  Mjsi!"!"l?n  THEM 

22222  FOR  I  "0  TO  3 

22313  9<  I  j  )=9s'.  I  ■  '.'Njoin 

202:2  9s( I j  >-3 

22233  NEXT  Ij 

^^34 2  I ?n— 2 

22GS3  ELSE 

220E3  GOTO  ! 9EQ3 

22273  END  IF 

22293  SEEP 

23393  INPUT  "ENTER  Y  LOWER  ANO  UPPER  LIMITS"  ,Y11  ,Yul 

22133  FOR  Xx-2  TO  Cx  STEP  C/./233 

231 10  Xa-Xnin^ia-Xx 

23123  IF  Xa'Xll  OR  Xa>Xui  THEN  23393 

23133  Icn-Icn+1 

23140  Pu-0 

231S0  !F  Ipn-1  THEN  Idf-Icn  MOO  2 

20150  IF  Ipn-2  THEN  Idf-Isn  MOO  4 

20170  IF  tpn-3  THEN  Idf-Icn  MOO  9 

20190  IF  Ipn-4  THEN  Idf-Icn  MOO  IS 

22190  IF  Ipn-5  THEM  Idf-Icn  MOO  29 

23230  IF  Idf-1  THEN  Pu-I 

20213  IF  Opo-0  THEN  Ya-FNPoly< Xa  ! 

20223  IF  Opc-2  ANO  Ilog-3  THEN  Ya-Xa/FNPslytXa ! 

23230  IF  Gpe-2  ANO  I  log- 1  THEN  Ya-FNPoly( Xa  ) 

20240  IF  Ooo-l  THEN  Ya-FNPoly< Xa ! 

222S3  IF  Ya'Yntn  THEM  23393 

2G2S3  IF  Ya-.Yll  OR  Ya>Yul  THEM  23393 

23273  IF  tun-!  THEM 

23290  IF  Opo-2  THEN  Xa-Xa»!.9 

23293  IF  Opo-3  THEM  Ya-Ya-.17BI 

23330  IF  0po»3  THEN  Ya-Ya».317 

20310  IF  Qpo-2  THEN  Xa-Xa».3!7 

20320  ENQ  IF 

20320  Y-LST(Ya/Y-tin>»Sfy 

20340  X-LST(Xa/Xmin)»Sfx 

20350  IF  Y<0  THEN  Y-0 

203S0  IF  YM00  THEN  GOTO  23390 

20370  IF  Pu-0  THEN  PRINT  "PA"  .X  ,Y  ,"PQ" 

23390  IF  Pu-I  THEN  PRINT  "PA"  ,X  ,Y  .  "PIT 

23393  NEXT  X:< 

23420  PRINT  ""U" 

23413  SOTO  19620 

23423  ENO  IF 

23433  BEEP 

22440  INPUT  "UANT  TO  PLOT  °EILL<"3  OATA?  ( l-Y  ,9-N )"  ,Irly 

23453  IF  Opo-3  OR  Opo-I  THEM 

22460  XI 1-3 

234"73  Xui-22 

22492  EMO  IF 

22492  IF  0"c=2  THEM 

20S30  1. 11  =  1 2333 

22513  <ul=!30000 

22522  END  IF 

22533    IF    [rlv-l     THE"I 

335a3    <ll=23 
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205S0  i,ul-70 

ZG5S2  SEEP 

Z9S79  INPUT  "ENTER  LOWER  AMD  'JPDEP  Y -LIMITS  cOR  PLOTTING''  Y 1 1  Yul 

23590  FQP  X>.-fl  TO  C-.  STEP  C.-./203 

Z0S32  Xa-Xmn»!0"X;< 

22532  [f   Xa  Xil  OR  Xa.Xui  THEN  10730 

125 10  Xl»LOG(Xa> 

22522  IF  Opa-0  THEM  /I— 2.5402937E-! +X1»U .9720!S'-X1»2.5134797E-1 ) 

20530  IF  Opc»!  THEN  V l=-2 .5402937E- I +X1 •' 3. 97221 5 ! -X 1 *Z .5 ! 34797E-!  ) 

29540  IF  Ops-2  THEM  Y  1—3  .  7073901  E-l  +X  I  ♦<  3  .  7253!  9GE-!  -X  1  *S  .  992S942E-3  > 

Z0S50  Ya-EXP<  Yl  ! 

Z2SS0  Y-LST' Ya/Ywin>«Sfy 

Z2S70  X-LSTtXa/XninJ'Sfx 

Z2590  lpu»0 

20690  IF  Y.Y11  THEN  Ipu-I 

23733  tc  y>Yyi  THEN  GOTO  20730 

20710  IF  Ipu-9  THEN  PRINT  "PA"  ,X  ,Y ,*P0" 

20723  IF  Ipu-1  THEN  PRINT  "PA"  ,X  ,Y  ,"PU" 

20730  NEXT  Xx 

20740  PRINT  "PU" 

23750  END  IF 

237S0  9E5P 

23773  INPUT  "WANT  TO  PLOT  ROHSENOU  CORRELATION'  <  I -Y  ,0-N >"  .Irohs 

20793  IF  Irohs-1  THEN 

23733  Yll-15 

23900  Yui-90 

23910  9EEP 

23923  INPUT  "ENTER  Tsat  ( Osg  O'.Tsat 

23930  Car*-. 0040 

23940  9EEP 

22953  INPUT  "ENTER  Car*  (  OEF-9  .  304  )"  ,Ca  ? 

20950  Tf-Tsat*2 

23973  FOR  Xx-0  TO  Cx  STEP  Cx/200 

23990  Xa-X!"!in^!0-Xx 

23990  IF  Xa<XH  OR  Xa>Xul  THEN  21170 

23900  XI -LOG' Xa  !  . 

20910  IF  Oca'- 2  THEN  Tf-Tsat  fXa/2 

20920  Rho-FNRho(Tf  ! 

20330  K-FNK< Tf  ! 

20340  Mu-FNMu(TP ) 

23950  Cp-FNCp(Tf  ! 

23350  Hfg-FNHfg< Tsat  ! 

20973  Ml»Mu/Rha 

23330  Pr- Cp'Mu/K 

Z3993  Onega-Caf •Hfg/Cs»< (  .314/(9.31 «Rhc  )  J* .5/'Mu»HFg 5 )"( 1 ./3  )*Pr'  I .7 

21000  IF  Opc-0  THEN  Ya»(  Xa /Onega  )  "3 

21013  IF  Opo-l  THEM  Ya-' Xa/Onega  >*3/Xa 

21029  IF  Opo-2  THEN  Ya-Xa" '  2 .  .'3  >/0«ega 

21033  IF  Opo-Z  THEM 

Z1343  TFc-Tsai+X3/Ya*.E 

Z1353  IF  A8S(Tf-Tfc>..3!  THEM 

'050  TP-' Tf+TPc !».5 

!370  GOTO  Z09Z0 
299  END  IF  ■ 
399  EMO  IF 

'30  Y-LST < Ya/Ynin >»Sfy 
'  !3  X-LST!  Xa/Xnin  !•■*!?  ■ 

i  ^  0  r  _ . ,  =  ,* 

'33  IF  C  ■'  Y 1 i  THEM  t°u  - ' 
i  .tg  ic  ^  •/,_.  [    THEN  Z !  !  79 
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Z!  !  SO  IF  Icu"3  THEM  PRINT  "P.*"  X  (    "FO" 

2!  ISO  IF  I"u=!  THEM  CRINT  "PA"  X  j*  "P'J" 

Z!  173  NEXT  X... 

2  |  i  og  pp  uit  -pij  •• 

1 1  t  ag  EMC  IF 

Z ! Z20  9EED 

Z !  Z !  3  INPUT  "UAMT  TO  3'JIT  '  1=Y  0™N!''  .Iqt 

Z1ZZ3  IF  [at"1  THEN  Z'Z-10 

21233  SOTO  18553 

2  1240  PRINT  "P'J  PA  3  0  3P0" 

21ZS3  SU8ENQ 

Z ! ZS3  SUB  SynbtX  Y  Syn  Ici  K  •  ) 

Z1270  IF  Sym/3  THEN  PRINT  "SM" 

21293  IF  Syr»<4  THEN  PRINT  "SR  1.4,2.4" 

21293  Yad-3 

21330  IF  Kj-1  THEN  Y3d=>..9 

2! 313  IF  Id -3  THEN 

21323  PRINT  "PA" ,X,Y+Yad,"" 

2 1 333  ELSE 

21340  PRINT  "PA" .X ,Y+Yad  ,"PQ" 

213S3  ENO  IF 

21360    IF   Syr-OS   THEM   PRINT    "SR    1.2,1.5" 

2!373    IF    Sy*-4    THEN   PRINT    "UC2  ,4  . 99  ,3  .-9  ,-4  ,3  ,3  ,9  ,4  ,3 ;  " 

2!390    IF   Sy*«S   THEN   PRINT    "UC3  ,3  ,99  .-3  ,-S  ,-3  ,S  ,3  ,S  .3  ,-S: " 

21390    IF   Syn-S    THEN  PRINT    "UC0  .5.3 ,99 .3 ,-9 ,-S ,3  .3  ,9s  * 

2U03    IF   Sym-7    THEN   PRINT    "UC0  ,-5.3  .99  .-3  ,9  ,5  .3  ,-3  ,-9s  * 

2!4!0    IF   Kj-I    THEN   PRINT    "3M:PR   3, -.9* 

21423  SUBENO 

21430  SUB  Purg 

2U40  9EEP 

2U53  INPUT  "ENTER  FILE  NAME  TO  9E  OELETEO"  ,F  t  IsS 

214E0  PURGE  FiiaS 

2! 173  GOTO  21443 

2 1 493  SUBENO 

21490  SUB  Tdcn 

21533  COM  /Cc/  C(7!,Ica! 

21513  OIM  Emf( 1 ! 

21523  OATA  3. 1309639! ,25727.94359 .-7S7345. 9295 ,79025595.9! 

21530  OATA  -9247495599, 5. 97E99E+I I  .-2  .55  I  92EM  3  ,3.  94079EH  4 

21540  -REAO  C!  ♦  ) 

21550  BEEP 

21560  INPUT  "GIVE  A  NAME  FOR  FILE  TO  BE  CREATED"  ,Fi leS 

21570  BEEP 

21580  INPUT  "SELECT  TUBE  (0-UH ,1-HF ,2«WT>" ,Itt 

21590  9EEP 

Z1S00  INPUT  "SELECT  THERMOCOUPLE  TYPE  ( 0-NEU , 1 -OLO  )"  .leal 

Z'510  IF  1 1  *.  Z  THEN  0;".3'Z7 

Z1SZ3  CREATE  BOAT  File*.  J 

Z1S30  ASSIGN  <?FtLs  TO  cilaS 

Z1543  OUTPUT  SFtlsslit 

ZIS53  J-0 

Z1SS3  9EEP 

Z 1573' INPUT  "ENTER  MONTH,  HPiTE    AND  TIME  !  MM:OD:HH:MM:SS  »"  .Oat  a« 

2 | 522 i OUTPUT  ~39 • " Tn " : Oj t s5 

21593"0UTPUT  "39;  TO" 

2!700i£NTER  ~"39:03t;S 

21710  PRINTER  IS  1 

Z  !  ~"  Z  0  ?  °  I N  T 

Z'~33    coINT    "  Month,    da'e    zr.l    time:     " :OatsS 

^  1  ~> \<*    do  mjt 


119 


'J ia  [3rd    siissth 

High   Flu.-. 


21-cQ   oprfir   'js  I NG    "I0X,""    Fhs  "in  T-v  'Ja"; 

->  1 -C(j     re    u;  =0    THEM 
2 1  7"*g    ppr^jTcp    13    731 
■>  t  7013    co  TfjT 

PRINT    "  Month,    data    2nd    tine:     "{QatsS 

tc    t k » ^2    THEM   PRINT    USING    "  !  OX    ""Tuba    T- -s- 

re    Ht«!     THEM    PRINT    USING    "IQX,'"Tubs    Typ-: 

IF    Itt-2    THEM   PRINT    USING    "!0X    ""Tubs    Tv-a: 

PRINT 

PRINT   USING    "13X,""    Frts  Tin  T-v  Uu"2  Tdr=p 

PRINTER  IS  ! 

K" ' 

END  IF 

SEEP 

INPUT  "ENTER  cL0'JMETER  READING"  ,Fms 

OUTPUT  709;"AR  AF3  AL.4  UR1" 

FOR  L-0  TO  4 

OUTPUT  ?09i "AS  SA" 

IF  L>(8  ANO  L<4  THEN  22010 

S-0 

FOR  1-0  TO  9 

ENTER  709 ;E 

S-S+E 

NEXT  I 

IF  1-0  THEN  EnfO!-nBS(S/t0) 

IF  L-4  THEN  E.ifC  !  >-A9S!S/!3> 

NEXT  I 

OUTPUT  739;  "AR  AF00  AL33  URI" 

OUTPUT  709: "AS  SA" 

Etp-a 

FOR  1-0  TO  9 
ENTER  709:Et 
Etp-Eip+Ei 
NEXT  I 
Eip-Etp/ 1 0 
Ttn-FMTvsv(Enf (  I  i  >" 
Tsv-FNTv3v(Enf(3)  ) 
Grad»37.99S3+. l04339»Tin 

Mdot-3 .  9S57E-3+F;n3  •  (  3 .6  !  3S5E-3-Fma»<  9 . 9233SE-S-Fr,s  ♦<  I  .  23S99E-7-Fns  »4.3I  997 
1  > 

Uw-Mdot/( !000»PI»Ot '2  )*4 

Tdrop-Etp*  !  .E-'-S/f  l0»Grad  ! 

PRINT  USING  "!0X,3(OD.OO,4X),1X,Z.OO,4X,MZ.4O"!Fns,Tln,rev,Vu*2 .Tdrap 

SEEP 

INPUT  "UANT  TO  ACCEPT  THIS  DATA  SET''  (  !  -Y  ,3-N  ) "  .Ok 

J-J+! 

IF  Ok -3  THEN 

J-J-! 

GOTO  2! 993 

ELSE 

OUTPUT  9F:Ie:Fns,Er!f«  •!  ,Eip 

PRINTER  IS  701 

PRINT  USING  'I0X  ,3(00.00  ,4X> , IX ,Z.OO ,4X  ,MZ . 10" ;Fns  ,T in, Tav ,Vu '2 .Tdroo 

DorfjTCO  re  i 

acza 

INPUT  "'JILL  THERE  9E  ANOTHER  DATA  SET'  (  I  «Y  ,0-N )"  ,Go_on 

re  c~  znm\     THEM  I!SSG 
; ! 3  ENO  [F 
"23  ASSIGN  ?F ; i e  r0  * 

r^g  .10  r  K|  rep  [c  -g  1 


2  I  "93 

2!  903 
2!3!3 
2!923 
21933 
2!  940 
2!9S3 
2!9S0 
21973 
21993 
2  !993 
2  !  930 
21910 
2!  923 
21933 
2!  940 
2!  9S3 
219S0 
21970 
2!  993 
2 !  990 
22000 
22013 
22323 
22030 
22040 
220S0 
223S0 
22070 
22090 
22390 
22  I  33 
22!  !3 
22 !  23 
22133 
E  - !  3  ! 
22!  40 
22150 
22 !  S3 
22 !  73 
22190 
22!  90 
22223 
222  !0 
22223 
22233 
22210 
222S0 
222SQ 
22273 
22293 
22293 
-'-'-rara 
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223-19   PRINT 

ZZZSC"   PRINT    USING     '  '  0X    ""MOTE:     ""    ZZ    ""    data    3st3    ars    stored    Ln    fila    ""     !SA";J    F 

i  l  s3 

i •? "?c n    paiMTCo    re    i 

Z^ZSS    S'JS    U""rt 

22393    PRINTER    Is     ! 

ZZ-100   9EEP 

Z2H3  INPUT  "Enter  Uo  Fils  Name"  ,.ci  ls9 

22123  SEEP 

22133  INPUT  "Number  of  Data  Runs"  .Nrun 

22140  INPUT  "Dc  You  Want  a  Plat  Fiia?( 1«Y ,3-N )"  ,Iplot 

22159  SEEP 

22150  IF  I~lcta!  THEN 

22170  INPUT  "Give  Plat  Fils  Nans"  ,?_( • Is* 

2218Q  CREATE  90AT  P  filsS  1 

22139  ASSIGN  9P»ot  TO  P_fil«S 

22500  END  IF 

22513  PRINTER  IS  701 

22520  PRINT 

22520  PRINT 

22510  PRINT  USING  "  1 0X  , " "    Water  Usl        Uo 

22550  ASSIGN  9Flla  TO  File3 

225S0  IF  Iplct-!  THEM  ASSIGN  9Flla1  TO  P_flleS 

22579  FOR  I-!  TO  Mrun 

22590  ENTER  JFUbiUu.Uo 

22599  IF  Iplat-1  THEN  OUTPUT  9FilatjUu.Ua 

22S00  PRINT  USING  " 1SX  ,0.00  ,SX  ,MZ.30E" :Uw ,Uo 

225 !0  NEXT  I 

22S29  ASSIGN  SFlle  TO  • 

22520  ASSIGN  ?Fils!  TO  • 

22519  PRINT  USING  " t 0X  , " "NOTE :  "".ZZ,"  data  ssts  ars  sierad  in  fils  ""  .  1 5A " i Nru 

n  Fi leS 

22553  IF  [plot-l  THEN 

22SS0  PRINT  USING  " !9X ," "NOTE:  "",ZZ,""  X-Y  Pairs  ars  stored  in  fils  "",15ft" ;Nru 

n,P_f ilsS 

22S70  EMO  IF 

22S90  PRINTER  IS  I 

22SS0  SU9EN0 

22700  SUS  Select 

22713  COM  .'IdQ/    I  do 

22729  SEEP 

22730  PRINTER  IS  I 

22740  PRINT  USING  "IX.  ""Ssisct  option:""" 

22750  PRINT  USING  "EX,""  0  Taking  data  or  ra-proceasing  previous  data 

227S0  PRINT  USING  "SX,""  !  Plotting  data  on  Log-Log  *"" 

22770  PRINT  USING  "SX,""  2  Plotting  data  on  Linear 

227S0  PRINT  USING  "SX,""  3  Make  cross-plot  ccefft  fils 

22"S3  PRINT  USING  "5X,""  l  Ra-ci.-culata  uater 

22"S93  PRINT  USING  "SX  ""  S  D,_;r",s 

22319  PRINT  USING  "SX,""  5  T-Orop  correction 

ZZ9Z3  PRINT  USING  *SX  ""  7  Print  Uo  cils 

ZZ3Z3  PRINT  USING  "SX  ""  3  Modify  X-Y  fits""" 

2Z310  C0INT  USING  "SX  ""  3  Nave 

ZZ2S3  PRINT  USING  ,,SXI,,"!0  Ccnb/C  i/.uc 

ZZ2S3  INPUT  Ida 
22373  re  [j-=3  rHEN  CALL  Nam 
-•■^la,*     rr  ;^2"'  rHEN  CALL  Plot 
2~9nO  rF  ["'c-Z  ''HEN  CALL  Dl:.- 
"■-■arag  ic  r-i^-j  ri-'EM  CALL  Cosf 
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-"■•owi     re  r^,j  THEM  CALL  M3 1 " 
22922  IF  Id"'?  THEN  CALL  P\irm 

22939  IF  Idp=S  THEN  CALL  Tier. 

22940  IF  Ids3"7  THEM  CALL  L'sc.-t 
22953  IF  Idp=9  THEM  CALL  .<,riad 
2",QC(j  re  Id"  =  9  THEM  CALL  Move 
22973  IF  Idc'9  THEN  CALL  Conb 
22992  3USEN0 

22999  SUE  Xyncd 

23090  PRINTER  IS  ! 

23010  SEEP 

23929  INPUT  'ENTER  FILE  NAME" .File* 

23030  ASSIGN  2Fils!  TO  Fil-S 

23940  SEEP 

23950  INPUT  "ENTER  NUMBER  OF  X-Y  PAIRS", No 

230S9  SEEP 

23979  INPUT  "ENTER  NEU  FILE  NAME",Fil-2S 

23980  CREATE  SCAT  Ft  1-23,5 
23090  ASSIGN  9FUe2  TO  Fil-23 
23100  SEEP 

23110  INPUT  "ENTER  NUMBER  OF  X-Y  PAIRS  TO  BE  OELETEO"  ,Ndel 

23120  IF  Ndel-0  THEM  23153 

23130  FOR  I-l  TO  Ndel 

23140  SEEP 

23IS0  INPUT  "ENTER  DATA  SET  NUMBER  TO  BE  DELETED" rNd( I ) 

23 150  NEXT  I 

23170  FOR  J-l  TO  Nc 

23190  ENTER  SFil-l :X,Y 

23193  FOR  !-!  TO  Ndel 

23290  IF  Nd< I  >-J  THEN  23240 

23210  NEXT  I 

23220  OUTPUT  SFile2;X  ,Y 

23230  PRINT  J ,X ,Y 

23219  NEXT  J 

23253  PRINTER  IS  701 

23250  ASSIGN  JFilet  TO  ♦ 

23270  ASSIGN  9File2  TO  * 

23290  SUBEMO 

23290  SU8  Move 

23300'  FILE  NAME:  MOVE 

233101 

23320  OIM  9oo<SS >,A(SS ) ,9(S6! .CCS6) ,0(SS > ,E(  SS ) ,F( 56  )  „G( SS  )  ,H( SS  )  ,J( SS >  ,K<6S>,L< 

55  ),M(SS J 

23330  OIM  Told3(S6)C 14]  ,N(SS)  .Ur(SS)  ,Ir(SG  ) 

23340  BEEP 

22353  INPUT  "OLD  FILE  TO  MOUE" ,OZ_f i leS 

233S0  ASSIGN  ?File2  TO  02_cilsS 

23370  ENTER  9Fiie2;Nrun .Date* .Ldtcl ,Ldtc2 ,Itt 

23393  FOR  1*1  TO  Nr'jn 

23293  ENTER  ?F i ls2 ;Bcq(  I  >  ,  To  IdS!  I  ! 

23400  ENTER  9Fila2»A<  I  !  ,B<  I>,Ct  I  !  ,D«  I )  ,E(  I  )  ,F<  I  5  ,S<  I )  ,H<  I»  ,J(  I  ).,K(I  )  ,L(  I  ?  ,M<  t )  ,N 

'.  I  ! 

23413  ENTER  9F  :  1  ;2  ;'.'r<  I   !  ,  Ir<  I  ! 

23420  NEXT  I 

22439  ASSIGN  '?F:ls2  T0  • 

23443  SEEP 

234=3  INPUT  'SHIFT  OISK  AMD  ury  CONTINUE"  .01. 

234S3  SEEP 

23l~3  INPUT  'INPUT  90AT  SIZE",3i=3 

23490  CPCATE  90AT  n"'  e  •   '  =S  5""« 
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23433  ASSIGN  SFilal  TO  02_filsi 

23500  OUTPUT  BFlie! :Nrur  ,Oats«  ,Ldt=!  ,Ldtc2  .lit 

23513  FOR  I-l  TO  Urur. 

23523  OUTPUT  9F11-! ;9sp( ! J  ,TeldS< I J 

23533  OUTPUT  9Filal  ;A<  I  > ,9<  I  )  ,C(  I  )  .D<  I )  ,E<  !  >  ,F«  I  > ,S<  I  \H(I>,J(I  )  ,K(  I  )  ,L<  I  > ,M<  I  ! 

N<  !  ) 

235-13  OUTPUT  ?Fi  la  I  :'Jr>.  I  >  ,Ir<  1  > 

23553  NEXT  I 

23SS3  ASSIGN  ^Filal  TO  ♦ 

235~3'  RENAME  "TEST"  TO  02  file? 

22593  9EEP  2330  .2 

23593  SEEP  4333  .2 

23633  BEEP  4039  ,. 2 

235 10  PRINT  *OATA  FILE  MOUEO" 

23S23  SUBENO 

2 35 30  SUB  Comb 

23S40'  FILE  NAME:  COMB 

23S50I 

23SS0  OIM  Enf( 12! 

23679  .9EEP 

23680  INPUT  '0L0  FILE  TO  FIXUP" ,02_f t la» 
23699  ASSIGN  «Ftls2  TO  D2_fllaS 

23790  01_fll9«--TEST' 

23710  CREATE  SOAT  O»_flleS.20 

23723  ASSIGN  SFlIal  TO  Ol.fllaS 

23730  ENTER  9Flla2:Mpun  ,Oat*eS  .Ldtsl  ,Ldtc2  .Itt 

23749  Nrunn-29 

23750  IF  K-0  THEN  OUTPUT  3Fila1 (Nrunn ,0ala8 .Ldtcl  .Ldt=2  .1 1 1 
23763  FOR  I- I  TO  Nrun 

23773  ENTER  9Flla2;9oo  .ToldS  .Enf '.  •  >  .Up  .  Ir 

23790  OUTPUT  SFilet :Boq  .ToldS  ,Enf< • J  ,Vr ,lr 

23799  NEXT  I 

23930  ASSIGN  9Flla2  TO  • 

23913!  RENAME  "TEST*  TO  Q2_flls* 

23929  SEEP  2300.  .2 

23920  9EEP  4000.-2 

23940  SEEP  4990,. 2 

23850  BEEP 

239S0  INPUT  'WANT  TO  AOO  ANOTHER  FILE  <  l-Y ,9-N  >?"  ,OKa 

23879  IF  Oka-1  THEN 

23999  K-1 

23990  SEEP 

23903  INPUT  'GIVE  NE'J  FILE  NAME'.NflleS 

23910  ASSIGN  9File2  TO  NftlsS 

23920  GOTO  23730 

23933  END  IF 

23940   ASSIGN  9FU-2    TO    • 

23950  SUBENO 
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